Var n,s,i : integer;
A: array [1..100] of integer;
Begin
Writeln( ' Nhạp do dai day so n=');
Readln(n);
For i:=1 to n do . Readln (A[i]);
S:=0
For i=1 to n do ;
If A[i] <0 then S:=S +A[i];
Writeln(S);
Readln;
End.
Ps:lụi:vv
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('Tong cac so am trong day so la: ',t);
readln;
end.