4.Создать массив а из десяти целых чисел, принадлежащих промежутку [0; 20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых превышают среднее арифметическое значений его элементов.

Var a: array [1..10] of integer; i, k: integer; s: real; Begin for i:=1 to 10 do a[i]:=random(20); write('Массив: '); for i:=1 to 10 do write(a[i], ', '); writeln; s:=0; for i:=1 to 10 do s:=s+a[i]; s:=s/10; writeln('СА чисел: ', s); k:=0; for i:=1 to 10 do if a[i] > s then k:=k+1; write('Кол-во элементов массива, превышающих СА: ', k); end. *** Примерный вывод: Массив: 9, 1, 4, 16, 19, 14, 16, 6, 11, 16, СА чисел: 11.2 Кол-во элементов массива, превышающих СА:5