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.
