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

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