Ввести с клавиатуры 10 целых чисел. Подсчитать количество нечётных (в паскаль турбо)

var

arr : array [1 ... 10] of integer; / / объявляем массив для введенных чисел с клавиатуры

i, z : integer; / / объявляем переменные

begin

write ('Введите 10 чисел: '); / / выводим строку на экран

for i : = 1 to 10 do / / начало цикла

begin

readln (arr[i]); / / считываем элемент массива (число введенное с клавиатуры) if (arr[i] mod 2 > 0) / / проверяем четное число или нет (считаем остаток от деления на 2)

then z:=z+1; / / если нечетное увеличиваем z на единицу

end;

writeln ('Количество нечетных чисел: ', z); / / выводим на экран строку с ответом

end.