Viết chương trình đếm số lượng phần tử chẵn trong mảng
2 câu trả lời
var i,n:integer;
a: array [1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
if a[i] mod 2=0 then inc(d);
end;
writeln;
write('So phan tu chan: ',d);
readln
end.
Vì đề không cho nên mình lấy số số hạng trong mảng là 250 nha!
type Kmang1: array[1..250];
var A: Kmang1;
dem, i: integer;
Begin
for i:=1 to 250 do
begin
Write('Phan tu thu', i , 'la');
Readln( A[i]);
end;
dem:=0;
for i:=1 to 250 do
if A[i] mod 2 = 0 then dem:=dem+1;
Write('so luong phan tu chan trong mang la', dem);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
