1. напишите программу вычисления в массиве из n элементов, заданных с клавиатуры, количества нечетных элементов.

k:=0;                     ( k-количество нечетных элементов)
for i:=1 to n do begin if (a[i] mod 2=0) then k:=k+1;end; writeln(k);
                      (цикл для счета нечетных элементов)