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

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