Program baitap;

Uses crt;

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

      n,i,ta,td,d:integer;

begin

clrscr;

write('Nhap so luong phan tu: ');  readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('phan tu thu ',i,': ');

  readln(A[i]);

 end;

write('Cac so chan co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=0 then

  write(A[i],' ');

writeln;

write('Cac so le co trong day la: ');

for i:=1 to n do

 if A[i] mod 2=1 then

  write(A[i],' ');

ta:=0;   td:=0;

for i:=1 to n do

 if A[i]<0 then ta:=ta+A[i]

 else td:=td+A[i];

writeln('Tong cac so am trong day la: ',ta);

writeln('Tong cac so duong co trong day la: ',td);

d=0;

for i:=1 to n do

 if A[i]=0 then d:=d+1;

write('Co ',d,' so 0 o trong day');

readln

end.