uses crt;

var A : array [1 .. 100] of integer;

    i, n, x1, x2 : integer;

begin

clrscr;

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

x1 := 0; x2 := 0;

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do

    begin 

        read(A[i]); 

        if A[i] <> 0 then

            if A[i] mod 2 = 0 then x1 := x1 + 1

            else x2 := x2 + 1; 

    end;

write('Cac phan tu trong mang : ');

for i := 1 to n do write(A[i],' ');

writeln;

writeln('Day co ', x1 ,' so chan');

writeln('Day co ', x2 ,' so le');

readln

end.

var A : array [1 .. 100] of int64;

i,n,d,dem:int64;

begin

readln(n);

for i:=1 to n do

begin

read(A[i]);

if A[i] mod 2=0 then d:=d+1 else dem:=d+1;

end;

write('Cac phan tu vua nhap: ');

for i := 1 to n do write(A[i],' ');

writeln;

writeln(d,' so chan');

write(dem,' so le');

readln

end.