program b4;
uses crt;
var a:array[1..500]of integer;
    n,i,Td,Ta:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do
        begin
                write('A[',i,'] = ');readln(a[i]);
                if A[i]>0 then Td:=Td+A[i];
                if A[i]<0 then Ta:=Ta+A[i];
        end;
        writeln('Tong cac phan tu duong: ',Td);
        write('Tong cac phan tu am: ',Ta);
        readln
End.

Program baitap;
Uses crt;
Var B:array[1..200] of integer;
      a,d,n,i:integer;
Begin
Clrscr;
Write('Nhap n:'); Readln(n);

a:=0; d:=0;
For i:=1 to n do
     Begin
     Write('B[',i,']=');

     Readln(B[i]);
     If B[i]<0 then a:=a+B[i];
     If B[i]>0 then d:=d+B[i];
     End;

Writeln('Tong cua cac phan tu duong=',d);
Writeln('Tong cua cac phan tu am=',a);
Readln
End.