Как можно быстрее, пожалуйста!
Паскаль 10-й класс.
1. Заполнить массив из 20 элементов случайными числами от 0 до 10. Распечатать его. Посчитать количество элементов в массиве меньших, чем среднее арифметическое всех элементов массива.
2. Ввести число. Выделить цифры, посчитать количество нулевых цифр в числе. Если таких нет, то выдать сообщение "нет".

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!** 1 **begin  var a:=ArrRandom(20,0,10); a.Println;  var m:=a.Average;  writeln('Число элементов, меньших среднего ',a.Where(t->t<m).Count)end.Пример8 2 7 5 8 0 0 9 9 3 0 10 10 0 5 10 4 9 1 5Число элементов, меньших среднего 11** 2 **begin  var k:=ReadInteger('n=').ToString.Where(c->c='0').Count;  if k=0 then Writeln('нет') else Writeln(k)end.Примерn= 252043012