begin
var a := ArrRandom(30, 0, 100);
a.Println;
a.Where(t -> t > a.Average).Count.Println
end.
Сначала запускаем цикл от 1 до 30 и считаем сумму всех потом делим ее на 30 и получаем среднюю оценку в классе . Потом запускаем цикл от 1 до 30 еще раз и считаем количество учеников у которых выше полученного нами среднего в 1 цикле.