С клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10

Question

Тамара

31 октября, 00:41

+5

Ответы (1)

Знаете ответ?

Валюха · Answer 1

var sum, n:integer;

begin

n:=1;

while (n0) do begin

readln (n) ;

if (n>10) then

sum:=sum+n;

end;

writeln (sum) ;

readln;

end.