Напишите программу (pascal)

Найти сумму вводимых с клавиатуры чисел, которые отрицательные.

Question

Виташа

13 мая, 12:02

+1

Ответы (1)

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

Будимир · Answer 1

Program n1;

var sum, a: integer;

begin

sum:=0;

repeat

readln (a) ;

if a<0 then sum:=sum+a;

until (a=0) ;

writeln (sum) ;

end.

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