Дан массив целых чисел, состоящий из 30 элементов опишите на русском языке или одним из языков программирования, алгоритм нахождения количеств элемента массива, значение которых больше среднего арифметического всех его элементов

program zz1;

const n = 30; / /задаем количество элементов в массиве

var i, k, s, p:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (101);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

s:=s+m[i]; / / находим сумму

for i:=1 to n do

if m[i] > s/n then p:=p+1;

writeln (' количество найденных элементов = ', p); / / выводим ответ

end.