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

222

398

Посмотреть ответы 3

Ответы на вопрос:

Traken

Информатика

4,4(48 оценок)

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.

timurtim1

Информатика

4,6(41 оценок)

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin writeln('сумма отрицательных чисел равна ', readseqrealwhile('ввод завершайте нулём: ',x-> x< > 0).where(x-> x< 0).sum) end. пример ввод завершайте нулём: 2.5 -4 -6.25 5.143 11 -8 0 сумма отрицательных чисел равна -18.25