заполнить массив из 10 элементов от 1 до 100 и найти их среднее арифметическое

// PascalABC.NET 3.1, сборка 1195 от 09.03.2016begin  var a:=ArrRandom(10,1,100); a.Println;  Writeln('Ср.арифм.=',a.Average)end.Тестовое решение:29 50 22 89 21 94 93 83 45 89Ср.арифм.=61.5

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)begin  var  a := ArrRandom(10, 1, 100);  a.Println;  Println(a.Average);end