Question

Составить программу для данного условия: Вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0) . В Паскале

Answer 1

Var a,s:real;
begin
s:=0;
repeat
readln(a);
if a>0 then s:=s+a;
until s>=100;
writeln('s = ',s:5:1);
end.

Пример:
45
-84
12
30
-30
53
s = 140.0

Answer 2

Вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0)