Найти число m– среднее арифметическое всех элементов массива - PascalABC.NET

Формулировка задачи:

Найти число m– среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить сумму индексов таких элементов, значения которых меньше m.

Решение задачи: «Найти число m– среднее арифметическое всех элементов массива»

Листинг программы

uses Arrays;
 
const n = 20;
var 
  x : array of integer := CreateRandomIntegerArray(n, 0, 50);
  m : double;
begin
  x.Writeln;
  var a := ReadlnReal('Введите число a: ');
  var less := x.Where(v -> v < a);
  if less.Count() > 0 then
  begin
    m := less.Average();
    writeln('Среднее = ', m, NewLine,
            'Сумма индексов = ', x.Select((v, i) -> (v < m) ? i : 0).Sum());
  end
  else writeln('Нет таких значений')
end.

Объяснение кода листинга программы

Объявляется константа n и переменная x типа массив целых чисел с размером n.
Создается случайный массив x с помощью функции CreateRandomIntegerArray(n, 0, 50).
Объявляется переменная m типа double для хранения среднего арифметического.
Выводится содержимое массива x с помощью метода Writeln.
Пользователю предлагается ввести число a с помощью функции ReadlnReal.
Создается новый массив less, содержащий только те элементы из x, которые меньше a.
Проверяется, что массив less не пустой.
Если это так, то вычисляется среднее значение элементов массива less с помощью метода Average и сохраняется в переменной m.
Выводится сообщение с средним значением m и суммой индексов элементов массива x, меньших или равных m, с помощью функции Select и метода Sum.
Если массив less пустой, то выводится сообщение Нет таких значений.