uses crt;
 var a : array[1..100] of longint ;
n, i : integer ;
  s : longint ;
  begin
   clrscr;
    write('nhap n: ');
     readln(n);
 for  i := 1 to n do
  begin
 write('a[',i,']=');
 readln(a[i]);
 if a[i]<0 then s := s + a[i];
  end ;
    writeln('Tong cac phan tu am la: ',s);
     end .

uses crt;

var N: array [1..1000] of integer;

i,a,s: integer;

begin

clrscr;

write('nhap do dai day so (phan tu): '); readln(a);

for i:= 1 to a do
begin

write('nhap so thu ',i,': '); readln(N[i]);

if N[i]<0 then s:=s+N[i];

end;

write('tong cua cac phan tu am trong mang la ',s);

readln;

end.