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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.