Заполните массив случайными числами в интервале [0,100] и подсчитайте отдельно среднее...

Question

Заполните массив случайными числами в интервале [0,100] и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50. Пример: Массив: 3 2 52 4 60 Среднее арифметическое элементов [0,50): 3.000 Среднее арифметическое элементов [50,100): 56.000

Answer 1

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

1. begin
2.  var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
3.  arr.Println;
4.  Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
5.  Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
6. end.