Question

Viết chương trình nhập n số nguyên

a) In các số đó ra màn hình

b) Đếm có bao nhiêu số chẵn trong dãy, in các số đó ra màn hình

c) Đếm có bao nhiêu số lẻ trong dãy, in các số đó ra màn hình

Answer 1

Var

a:array[1..100] of integer;

i,n,d,d1:integer;

Begin

readln(n);

For i:=1 to n do

begin

readln(a[i]);

write(a[i]);

end;

writeln;

For i:=1 to n do

if n mod a[i]=0 then d:=d+1

esle d1:=d1+1;

writeln('cac so chan co trong day la:',d);

write('cac so le trong day la:',d1);

readln

end.