Напишите решение задачи в виде рпограммы на языке pascal вводится последовательность из n натуральных чисел, найти сумму всех отрицательных
Program; var a,n,i,sum:integer; sum:=0; Begin for i:=1 to n do begin; read(a); if (a<0) then<br>sum:=sum+a; end; writeln(sum); End.
если не трудно скажи зачем сразу условие что sum:=0?
потому что изначально у нас нет чисел которые надо складывать, значит сумма изначально будет равна 0
а чисда вводятся во время выполнения цикла