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

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

Если это всё как я думаю x=1=Истина=z и y=0=ложь то

1) 0

2) 1

3) 1

4) 1

5) 1

6)

7) 1 думаю но не точно

8) 0

9)1

10) 0

Объяснение:

С у учителя x=истине ? И ещё нужно узнать чему равны z и p