Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами из интервала [-20, 20] и найти среднее арифметическое всех элементов массива.

Var mass:array[1 ... 10] of integer;

var i:integer;

var sum: integer;

var ans: real;

begin

Randomize;

sum:=0;

for i:=1 to 10 do begin

mass[i]:=Random (41) - 20; write (mass[i],' ') ;

end;

for i:=1 to 10 do

sum+=mass[i]; ans:=sum/10;

writeln ('Otvet: ', ans) ;

end.