заполнить массив из 50 элементов случайными целыми числами из интервала от -37 до 49 посчитать среднее арифметическое M наибольших значений элементов массива M вводится пользователем

// PascalABC.NET 3.3begin  var a:=ArrRandom(50,-37,49); a.Println;  var m:=ReadInteger('m =');  writeln('S = ',a.SortedDescending.ToArray[0:m].Average);end.Пример:23 14 -2 13 -15 -8 -32 10 -9 -12 -10 35 -13 12 -34 -25 -17 -13 4 39 38 46 -18 -6 -36 25 16 32 -24 -12 21 -19 9 47 -1 31 -30 -10 -29 16 -15 39 -1 -17 22 -27 -18 23 20 -11m = 5S = 41.8