Подсчитать количество элементов одномерного массива, заданного генератором случайных чисел, больших среднеарифметического всех элементов массива.

Для начала продумаем наше решение. Сначала заполним массив случайными числами с цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.Для того чтобы решить задачу нам понадобятся следующие переменные :1. Переменная mass — для нашего массива
2. Переменная more — для чисел больше среднего арифметического
3. Переменная less — для чисел меньше среднего арифметического
4. Переменная aver — для среднего арифметического
5. Переменная i — для циклаНачнем мы с каркаса нашей программы :123456789101112131415const N = 40;type    massiv = array [1..N] of integer;var    mass: massiv;    more, less, i : integer;    aver : real;    begin    randomize;         aver := 0;    more := 0;    less := 0;end.