Составьте программу ,которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива .

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите её версию!begin  var a:=ArrRandom(10,1,10); a.Println;  Writeln('Ср.арифм: ',a.Average)end.Пример3 9 8 3 3 8 8 9 7 3Ср.арифм: 6.1