Вычислить количество чётных/нечетных элементов одномерного массива - Turbo Pascal

Формулировка задачи:

1)Составить программу, вычисляющую количество чётных элементов вектора. 2)Составить программу, вычисляющую количество нечётных элементов вектора. Заранее спасибо.

Решение задачи: «Вычислить количество чётных/нечетных элементов одномерного массива»

Листинг программы

  Count:=0;
  for i:=1 to N do begin
    if odd(A[i]) then // если нечетное
      Inc(Count);
  WriteLn(Count);

Объяснение кода листинга программы

Переменная Count инициализируется значением 0. Она будет использоваться для подсчета количества четных элементов массива.
Цикл for выполняется от 1 до N (N - длина массива).
Внутри цикла проверяется, является ли элемент массива A[i] нечетным. Это делается с помощью функции odd.
Если элемент нечетный, то значение переменной Count увеличивается на 1.
После завершения цикла, значение переменной Count выводится на экран с помощью функции WriteLn.
Код завершается после вывода значения переменной Count.