Вычесть из каждого элемента массива среднее арифметическое отрицательных элементов - PascalABC.NET

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

Со стандартного потока ввода данных считываются значения одномерного массива размером 20 элементов. Преобразовать исходный массив, вычитая из значения каждого элемента массива среднее арифметическое значение отрицательных элементов массива. Исходные данные являются целыми числами в диапазоне от 10 в -6 до 10 в 6 .

Решение задачи: «Вычесть из каждого элемента массива среднее арифметическое отрицательных элементов»

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

begin
  var a := ArrGen(20, i -> ReadlnReal(Format('{0} =', i + 1)));
  var ave := a.Where(v -> v < 0).Average;
  a := ArrGen(a.Length, i -> a[i] - ave);
  writelnformat('Среднее: {0}{2}Новый массив: {1}', ave, a.JoinIntoString, NewLine);
end.

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

Объявляется массив a размером 20, элементы которого считываются с помощью функции ReadlnReal (номер 20).
Вычисляется среднее арифметическое отрицательных элементов массива a с помощью метода Where (номер 19) и функции Average (номер 18).
Массив a заменяется на новый массив, вычисленный как разность каждого элемента исходного массива и среднего арифметического отрицательных элементов с помощью функции ArrGen (номер 17).
Выводится среднее арифметическое и новый массив с помощью функции writelnformat (номер 16) и функции JoinIntoString (номер 15).