Дан массив из n чисел найти средне арифметическое

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(ArrRandom(ReadInteger('n='),-10,20).Println.Average)
end.

Тестовое решение:
n= 10
12 -1 7 12 -8 5 19 1 -1 0
4.6