Дан массив с [1:20], элементами которого являются случайные числа из интервала (0, 200). Определить количество элементов, которые являются нечетными числами.

program zz1;

const n = 20; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer; / / задаем целочисленный массив

begin

for i:=1 to n do / / получаем n случайных чисел в диапазоне от нуля до двухсот и записываем их в массив

m[i]:=random (201);

for i:=1 to n do

if m[i] mod 2 = 1 then k:=k+1; / / проверяем, если число при делении на два дает в остатке один, то считаем его

write (' количество нечетных элементов массива = ', k); / / выводим ответ

end.