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

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.