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

Question

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

agulmira62 · Answer

Var A:integer;S:real;BeginRepeatRead(A);if A 0 then S:=S+A;Until A=0;WriteLn( S = ,S)End....