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