Спо паскаль : дан массив размера n. найти и вывести на экран средний элемент массива.

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('Ср.знач.=',
    ArrRandom(ReadInteger('n='),1,50).Println.Average)
end.

Тестовое решение:
n= 15
46 24 35 34 48 18 34 7 12 5 22 14 2 4 43
Ср.знач.=23.2