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.
