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

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

Comments

Мне же нужно остановить при 100.0

---

until s>=100;

---

Я ввожу 4 и 4, результат s:=108.0

---

спасибо

Answer 2

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

---

Comments

а почему a не real, a integer?

---

Потому что я вводил только целые числа, а не вещественные.Можешь изменить на real, если тебе так будет удобней.

---

Спасибо