Программа вычисления суммы элементов в одномерном массиве

Question

Программа вычисления суммы элементов в одномерном массиве

Answer 1

Const
  n = 10;

var
  x: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
    s:=s+x[i]
  end;
  Writeln;
  Writeln('Сумма элементов массива равна ',s)
end.

Тестовое решение:
Элементы массива
 11 32  9 24 25 19 21 20 40  3
Сумма элементов массива равна 204