Вычислить сумму всех элементов массива

// 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.

Пример работы: