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

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

Question

Корнил

16 мая, 22:11

+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)Найти сумму вводимых с клавиатуры чисел, которые отрицательные.