Audora
4 год назад
напишите решение задачи в виде рпограммы на языке pascalвводится последовательность из n натуральных чисел, найти сумму всех отрицательных
ОТВЕТЫ
Bishop Robert
Oct 24, 2020
Program;
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.
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.
569
