Найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры
Найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы