Найти число пар "соседних" элементов массива, являющихся четными числами - QBasic

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

одномерный массив:найти число пар "соседних" элементов массива, являющихся четными числами. Двумерный массив чисел. Определить, сумму элементов третьей строки массива, не превышающих 25. P.S значения элементов должны вводиться в ручную

Решение задачи: «Найти число пар "соседних" элементов массива, являющихся четными числами»

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

DECLARE FUNCTION f! (m%(), n!)
CLS
RANDOMIZE TIMER
INPUT "N = "; n
DIM m(1 TO n) AS INTEGER
   
FOR i = 1 TO n
   m(i) = 40 * RND
   PRINT m(i);
NEXT i
PRINT : PRINT
 
PRINT f(m(), n)
END
 
FUNCTION f (m() AS INTEGER, n)
   IF n = 2 THEN
      IF m(1) MOD 2 = 0 AND m(2) MOD 2 = 0 THEN f = 1
   ELSE
      IF m(n - 1) MOD 2 = 0 AND m(n) MOD 2 = 0 THEN
         f = f(m(), n - 1) + 1
      ELSE
         f = f(m(), n - 1)
      END IF
   END IF
END FUNCTION

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

Объявление функции с двумя аргументами.
Инициализация массива m случайными значениями.
Вывод значений массива m на экран.
Вызов функции f с передачей массива m и его размера в качестве аргументов.
В функции проверяется условие, если размер массива равен 2, то проверяется условие на четность элементов.
Если условие выполняется, то функция возвращает значение 1.
Если размер массива больше 2, то проверяется условие на четность элементов в конце массива.
Если условие выполняется, то функция вызывает сама себя, передавая массив и уменьшенный на 1 размер массива в качестве аргументов.
К результату рекурсивного вызова добавляется единица.
Если условие не выполняется, то функция вызывает сама себя, передавая массив и уменьшенный на 1 размер массива в качестве аргументов.
Результат выводится на экран.