PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.

var a:array [1..30] of integer; // массив из 30 элементов i : integer; // итератор count : integer; // счетчик числа символов, делящихся на 5 avrg : real; // среднее арифметическое begin avrg := 0; // в начале среднее арифметическое равно 0 for i:=1 to 30 do read(a[i]); // считать 30 чисел for i:= 1 to 30 do // проверка всех чисел begin if (a[i] mod 5 = 0) then // если число кратно 5, то увеличить счетчик и прибавить число к среднему значению count := count + 1; avrg:= avrg + a[i]; end; writeLn(avrg / count); // вывести сумму всех чисел, деленную на их кол-во end.