дан массив целых чисел. найти количество элементов массива, ...

Lera

var b:array [1..100000] of integer;a,k,i,n:integer;begink:=0;{обнуляем счётчик}readln(n);{вводим количество элементов в массиве}readln(a);{задаём число а, с которым потом будем сравнивать}for i:=1 to n do{запускаем цикл}beginif (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}k:=k+1;{при выполнении условия,увеличиваем счётчик на один}end;writeln(k);{выводим количество элементов, удовлетворивших условию задачи}end.