Question

cho dãy a gồm a1, a2,..., an số nguyên. hãy viết chương trình đến các số lẻ và chẵn có trong dãy.

Answer 1

Program hoc24;

var a: array[1..32000] of integer;

i,n,d,d1: integer;

begin

write('Nhap N : '); readln(n);

d:=0; d1:=0;

for i:=1 to n do

begin

write('Nhap a[',i,']='); readln(a[i]);

if a[i] mod 2=0 then d:=d+1 else d1:=d1+1;

end;

Writeln('Co ',d,' so chan trong day');

write('Co ',d1,' so le trong day');

readln

end.