Напишите решение задачи в виде рпограммы на языке pascal

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

Question

Добромысл

17 февраля, 18:55

+3

Ответы (1)

Знаете ответ на вопрос?

Евмен · 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.

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