`a )`Var a:array`[1..64000]`of longint;
n,i,d,T:longint;
begin
writeln('nhap so phan tu cua mang');readln(n);
writeln('nhap lan luot cac phan tu cua mang');d:=`0`;t:=`0`;
for i:=`1` to n do begin
readln(a[i]);t:=t+a[i];
if a[i] mod `2=0` then `d:=d+1`;
end;
`c )` writeln('tong cac phan tu cua mang la:',t);
writeln('mang vua nhap');
for i:=1 to n do
write(a[i],' ');
writeln('so so le:',n-d);
writeln('so so chan:',d);
readln;
end.