KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
var n,i,s,temp:integer; begin assign(input,’TT.INP’);reset(input); assign(output,’TT.OUT’);rewrite(output); readln(n); s:=0; for i:=1 to n do begin read(temp); if temp<0 then s:=s+temp; end; write(s); close(input); close(output); end.
var a:array[1..100] of integer;n,i,s:integer;
begin
assign(input,’bt.inp’);reset(input);
assign(output,’bt.out’);rewrite(output);
readln(n);
s:=0;
for i:=1 to n do readln(a[i]);
if a[i]<0 then s:=s+a[i];
write(s);
close(input);
close(output);
end.
var n,i,s,temp:integer;
begin
assign(input,’TT.INP’);reset(input);
assign(output,’TT.OUT’);rewrite(output);
readln(n);
s:=0;
for i:=1 to n do
begin
read(temp);
if temp<0 then s:=s+temp;
end;
write(s);
close(input);
close(output);
end.
====================================
Input:
5
-1 2 -3 4 -5
Output:
-9