Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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