Uses Crt;
Var i, n, S_am, S_duong, Dem_am, Dem_duong: integer;
    a: array [1..100] of integer;
BEGIN
Clrscr;
S_am:=0;
S_duong:=0;
Dem_am:=0;
Dem_duong:=0;
Write('Nhap n= '); Readln(n);
For i:=1 to n do
Begin
        Write('a[',i,']= ');
        Readln(a[i]);
End;
For i:=1 to n do
        If a[i]<0 Then
                Begin
                        Dem_am:=Dem_am+1;
                        S_am:=S_am+a[i];
                End
        Else
                Begin
                        Dem_duong:=Dem_duong+1;
                        S_duong:=S_duong+a[i];
                End;
Writeln('Co ',Dem_am,' so am trong day, Tong= ',S_am);
Write('Co ',Dem_duong,' so duong trong day, Tong= ',S_duong);
Readln;
END.

program ct;

uses crt;

var A:array[1..10] of integer;

      i,n,d1,d2:integer;

      S1,S2:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S1:=0; S2:=0;

   for i:=1 to n do

     begin

        if A[i]>0 then 

          begin

             inc(d1);

             S1:=S1+A[i];

          end;

        if A[i]<0 then 

          begin

             inc(d2);

             S2:=S2+A[i];

          end;

     end;

   writeln('Co ',d1,' so duong. Tong la: ',S1);

   writeln('Co ',d2,' so am. Tong la: ',S2);

readln;

end.

Học tốt!