Question

Вычислитe сумму элементов одномерного массива А, состоящего из 10
элементов

Answer 1

var

i,max:integer;

mas: array[1..10] of integer;

begin

randomize;

for i:=1 to 10 do

begin

mas[i]:=random(10);

max:=max+mas[i];

end;

writeln(max);

end.