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

Для начала продумаем наше решение. Сначала заполним массив случайными числами с помощью цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.Для того чтобы решить задачу нам понадобятся следующие переменные :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.