program tong;
uses crt;
var i, n, tong: integer;
      a: array[1..100] of integer;
begin
  tong:=0;
  write('nhap n:'); read(n);
  for i:= 1 to n do
   begin
     write(' nhap gia tri cua phan tu:'); read(a[i]);
      if a[i]<0 do
      tong:=tong+a[i];
   end;
      write('tong cua cac phan tu am la:',tong);
      readln;
End.