nhập N số gồm có a1, a2,...aN. kiểm tra trong dãy số có bao nhiêu số chẵn
2 câu trả lời
uses crt;
var a:array[0..100000] of longint;
i,n,d:longint;
begin
readln(n);
for i := 1 to n do
begin
read(a[i]);
if a[i] mod 2 = 0 then inc(d);
end;
writeln('Trong day co ',d,' so chan');
readkey;
end.
var
a:array[1..100] of longint;
n,i,dem:longint;
begin
write('nhap n:');
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu hỏi trong lớp
Xem thêm
