Question

Nhập vào dãy số gồm n số nguyên từ bàn phím. Sau đó in ra dãy các số chẵn và dãy các số lẻ trong n số trên.

Answer 1

Program HOC24;

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

i,n: integer;

t,t1,tl,tc: integer;

begin

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

t:=0; t1:=0; tc:=0; tl:=0;

for i:=1 to n do

begin

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

end;

write('Day cac so chan la : ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

write('Day cac so le la : ');

for i:=1 to n do if a[i] mod 2<>0 then write(a[i],' ');

readln

end.