uses crt;
var A:array[1..19] of integer;
    n,i:byte; s:integer;
begin
   clrscr;
   write('Nhap n (n<=19): '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i]<0 then s:=s+A[i];
   end;
   write('Tong cac so am la: ',S);
   readln
end.

program Tin_hoc;

uses crt;

var i,n,tong:integer;

     a:array[1..1000] of integer;

begin

clrscr;

write('Nhap n dieu kien n <=19 : ');readln(n);

while n>19 then 

begin

clrscr;

tong:=0;

write('Nhap lai : ');

readln(a[i])

end; 

for i:= 1 to n do 

begin

write('a[',i,']=');

readln(a[i]);

if a[i] < 0 then tong:= tong+a[i]

end;

writeln('Tong cac phan tu am trong mang la: ',tong);

readln;

end.