дан целочисленный массив из 30 частей элементы могут принимать значения от

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(30, 0, 100);

 a.Println;

 a.Where(t -gt; t gt; a.Average).Count.Println

end.

Поначалу запускаем цикл от 1 до 30 и считаем сумму всех баллов потом делим ее на 30 и получаем среднюю оценку в классе . Потом запускаем цикл от 1 до 30 еще раз и считаем количество воспитанников у которых балл выше приобретенного нами среднего балла в 1 цикле.