Program NN;
Uses crt;
Var A: array[1..1000] of integer;
    n,i,sd,sa,sc,sl,da,dd: integer;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        sd:=0; sa:=0; sc:=0; sl:=0; da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] > 0 then
                Begin
                        sd:=sd+A[i];
                        inc(dd);
                End;
                If A[i] < 0 then
                Begin
                        sa:=sa+A[i];
                        inc(da);
                End;
                If A[i] mod 2 = 0 then sc:=sc+A[i];
                If A[i] mod 2 <> 0 then sl:=sl+A[i];
        End;
        Writeln('a) ',sd);
        Writeln('b) ',sa);
        Writeln('c) ',sc);
        Writeln('d) ',sl);
        Write('e) ',da,' ',dd);
        Readln
End.

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.