program oken;
uses crt;
var a: array [1..1000] of integer;
    n,i,dem1,dem2,sle,schan: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    dem1:=0; dem2:=0; sle:=0; schan:=0;
    for i:=1 to n do
        begin 
            write('A[',i,']: '); readln(a[i]);
            if (a[i]>=0) then
                dem1:=dem1+1
            else 
                dem2:=dem2+1;
            if (a[i] mod 2=1) then
                sle:=sle+a[i]
            else
                schan:=schan+a[i];
        end;
    writeln('Cac phan tu co gia tri am: ',dem2);
    writeln('Cac phan tu co gia tri la duong: ',dem1);
    writeln('Tong cac phan tu co gia tri le: ',sle);
    writeln('Tong cac phan tu co gia tri chan: ',schan);
    readln;
end.

program ct;

uses crt;

var i,n,d1,d2,tongchan,tongle:integer;

A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  d1:=0; d2:=0; tongchan:=0; tongle:=0;

    for i:=1 to n do

begin

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

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

   if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];

end;

  writeln('co',d1,' so duong');

  writeln('co',d2,' so am');

  writeln('tong so chan la:',tongchan);

  writeln('tong so le la:',tongle);

readln

end.