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

Для начала продумаем наше решение. Сначала заполним массив случайными числами с помощью цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического. Для того чтобы решить задачу нам понадобятся следующие переменные: 1. Переменная mass - для нашего массива

2. Переменная more - для чисел больше среднего арифметического

3. Переменная less - для чисел меньше среднего арифметического

4. Переменная aver - для среднего арифметического

5. Переменная i - для цикла Начнем мы с каркаса нашей программы: 123456789101112131415 const 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.