uses crt;
var i,n,s,s1,s2,d,d1:longint; a:array[1..10000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do begin
write(a[i],',');
s:=s+a[i]; end;
writeln;
write('tong cac phan tu trong mang la: ',s); writeln;
write('Cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then begin write(a[i],','); d:=d+1; s1:=s1+a[i]; end; writeln;
write('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then begin write(a[i],','); d1:=d1+1; s2:=s2+a[i]; end; writeln;
write('So luong so chan la: ',d); writeln;
write('So luong so le la: ',d1); writeln;
write('Tong cac so chan la: ',s1); writeln;
write('Tong cac so le la: ',s2); writeln;
readln
end.