uses crt;
var i, n, d1, d2, s1, s2, s3, s4 : integer;
A : array [1 .. 100] of integer;
begin
clrscr;
d1 := 0; d2 := 0; s1 := 0; s2 := 0; s3 := 0; s4 := 0;
write('Nhap so n = '); readln(n);
write('Nhap mang ', n ,' so : ');
for i := 1 to n do begin read(A[i]);
if A[i] mod 2 = 0 then s3 := s3 + A[i]
else s4 := s4 + A[i];
if A[i] <> 0 then if A[i] > 0 then begin s2 := s2 + A[i];
d2 := d2 + 1; end
else begin s1 := s1 + A[i]; d1 := d1 + 1; end; end;
writeln('Tong cac so am = ', s1);
writeln('Tong cac so duong = ', s2);
writeln('Tong cac so chan = ', s3);
writeln('Tong cac so le = ', s4);
writeln('Co ', d1 ,' so am');
writeln('Co ', d2 ,' so duong');
readln
end.
