найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

Question

Информатика

Полюня

20 декабря, 02:16

найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

+1

Ответы (1)

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

Клим · Answer 1

program test;

var i:integer; n, sum: real;

begin

sum:=0;

write ('Enter 10 numbers: ') ;

for i:=1 to 10 do

begin

read (n) ;

if n < 0 then

sum:=sum+n;

end;

writeln ('Sum = ', sum) ;

readln;

end.