напишите решение задачи в виде рпограммы на языке pascal
вводится последовательность из n натуральных чисел, найти сумму всех отрицательных
вводится последовательность из n натуральных чисел, найти сумму всех отрицательных
More Questions From This User See All
Answers & Comments
var a,n,i,sum:integer;
sum:=0;
Begin
for i:=1 to n do
begin;
read(a);
if (a<0) then
sum:=sum+a;
end;
writeln(sum);
End.