Подсчитать сумму 10 произвольно введенных чисел

Question

Подсчитать сумму 10 произвольно введенных чисел

Answer 1

Var i, x, s: integer;begin s := 0; for i := 0 to 9 do begin read(x); s := s + x; end; writeln('summa: ', s);end.