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);......                       (цикл для счета нечетных элементов)