Дан фрагмент программы.
for i:= to n
if (A[i] mod 5=0) and (A[i]<>0) then kol:=kol+1;

После его выполнения значение переменной kol равно:
1)количеству элементов массива А, кратных 5
2)количеству нулевых элементов массива А, кратных 5
3)количеству нулевых элементов массива А
4)количеству элементов массивам А

На алгоритмическом языке оператор ветвления означает следующее:

ЕСЛИ остаток от деления A[i] на 5 равен 0 И A[i] не равно 0, то увеличить kol на 1.

Соответственно, правильный ответ: 1.