cho dãy a có N số nguyên a1,a2...aN hãy cho biết trong dãy có bao nhiêu số chẵn
2 câu trả lời
uses crt;
var i,n,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] mod 2=0 then inc(t);
end;
writeln(T);
readln;
end.
Câu hỏi trong lớp
Xem thêm
