Дан массив из n случайных чисел. найти среднее значение всех элементов массива.

//PascalABC.Net 3.2
begin
var a:=ArrRandom (readinteger('n ='), -100, 100);
a.Println;
write ('Ср. фрифметическое: ', a.Average)
end.