Найти сумму положительных чисел из 10, введённых с клавиатуры. Программа Паскаль.

Найти сумму положительных чисел из 10, введённых с клавиатуры. Программа Паскаль.
Гость
Ответ(ы) на вопрос:
Гость
var   i, x, sum:integer; begin   sum:=0;   for i:=1 to 10 do   begin     readln(x);     sum:=sum+x;   end;   writeln(sum); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы