Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s,da,sa: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; da:=0; sa:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
s:=s+A[i];
If A[i]<0 then
Begin
inc(da);
sa:=sa+A[i];
End;
End;
Writeln('S = ',s);
Writeln('Dem am = ',da)
Write('Tong am = ',sa);
Readln
End.