// PascalABC.NET
begin
var x := ReadArrInteger(10);
x.Sum.Print
end.
Или если вдруг предыдущий ответ чем-то не угодил:
var x: array[1..10] of integer; sum: integer; beginfor var i := 1 to 10 do read(x[i]);for var i := 1 to 10 do sum := sum + x[i]; write(sum); end.Пример работы:
