Заполнить массив из 50 элементов случайными целыми числами из интервала от -37 до 49...

Question

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

Answer 1

// PascalABC.NET 3.3

begin
  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 -11
m = 5
S = 41.8