k:=0; for i:=1 to kol do // kol - количество элементов массива if (mass[i] mod 2 <> 0) then k:=k+1; // mass - массив чисел, k - количество нечетных