PASCAL

uses crt;
var i,n,tong :integer;
a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap n : ');
readln(n);
for i:=1 to n do 
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('tong so am la : ');
for i:=1 to n do
if a[i] < 0 then tong:=tong+a[i];
write(tong);
readln
end.uses crt;
var i,n,tong :integer;
a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap n : ');
readln(n);
for i:=1 to n do 
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('tong so am la : ');
for i:=1 to n do
if a[i] < 0 then tong:=tong+a[i];
write(tong);
readln
end.

uses crt;
var i,n,tong :integer;
    a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap n: ');
readln(n);
for i:=1 to n do 
begin
write('a[',i,']=');
readln(a[i]);
end;
write('Tong so am day N la : ');
for i:=1 to n do
if a[i] < 0 then tong:=tong+a[i];
write(tong);
readln;
end.