Question

напишите решение задачи в виде рпограммы на языке pascal
вводится последовательность из n натуральных чисел, найти сумму всех отрицательных

Answer 1

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.

Answer 2

если не трудно скажи зачем сразу условие что sum:=0?

Answer 3

потому что изначально у нас нет чисел которые надо складывать, значит сумма изначально будет равна 0

Answer 4

а чисда вводятся во время выполнения цикла