Функция: найти количество элементов массива, больших среднего арифметического его минимума и максимума - PascalABC.NET

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

Дан массив. Размер задается пользователем, описать функциию Count(A) вычисляющую количество элементов больше среднего арифметического максимального и минимального значения.

Решение задачи: «Функция: найти количество элементов массива, больших среднего арифметического его минимума и максимума»

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

function Average(a: array of integer): real := (a.Sorted.First + a.Sorted.Last) / 2;
 
function Count(a: array of integer): integer := a.Where(v -> v > Average(a)).Count;
 
begin
  var a := ArrRandom(ReadlnInteger('N ='), -20, 20);
  a.Println;
  writeln(Count(a));
end.

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

Импортируется пространство имен System.Collections.Generic
Определяется функция Average(a: array of integer): real, которая вычисляет среднее арифметическое первого и последнего элементов отсортированного массива a
Определяется функция Count(a: array of integer): integer, которая считает количество элементов массива a, больших среднего арифметического значения функции Average(a)
В основной программе определяется массив a размером N, который заполняется случайными целыми числами от -20 до 20 с помощью функции ArrRandom
Массив a выводится на экран с помощью функции Println
Функция Count(a) вызывается для массива a и результат выводится на экран с помощью функции Writeln