(На языке программирования)С клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?

(На языке программирования)С клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?
Гость
Ответ(ы) на вопрос:
Гость
Var A:integer; S:real; Begin Repeat Read(A); if A>0 then S:=S+A; Until A=0; WriteLn('S = ',S) End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы