program ct;

uses crt;

var i,n,S:integer;

A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  S:=0;

   for i:=1 to n do

      if A[i]<0 then S:=S+A[i];

    writeln('tong cac so am la:',S);

readln

end.

program oken;
uses crt;
var a: array [1..100] of integer;
    s,n,i: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    s:=0; i:=0;
    while i<=n do
        begin  
            i:=i+1;
            write('A[',i,']: ');
            readln(a[i]);
            if a[i]<0 then
                s:=s+a[i];
        end;
    writeln('Tong cac phan tu co gia tri la am: ',s);
    readln;
end.