program oken; uses crt; var a: array [1..100] of integer; i,n,s: longint; begin clrscr; write('Nhap so phan tu cua mang: '); readln(n); s:=0; 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 so am: ',s); readln; end.
