напишите решение задачи в виде рпограммы на языке pascal
вводится последовательность из n натуральных чисел, найти сумму всех отрицательных
Ответы на вопрос
Ответил dant02
0
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.
Ответил evgeniyisaev
0
если не трудно скажи зачем сразу условие что sum:=0?
Ответил dant02
0
потому что изначально у нас нет чисел которые надо складывать, значит сумма изначально будет равна 0
Ответил dant02
0
а чисда вводятся во время выполнения цикла
Новые вопросы