Подсчитать количество элементов массива, больше заданного числа - QBasic

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

Подсчитать количество элементов больше заданного числа. Если оно больше половины всех элементов, определить индекс и значение максимального, иначе минимального. Размер массива не более 15 элементов. и блок схему, пожалуйста , срочно экзамен(((( буду очень признательна за помощь)))

Решение задачи: «Подсчитать количество элементов массива, больше заданного числа»

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

DECLARE FUNCTION Kol! (n!)
CLS
RANDOMIZE TIMER
n = 12
DIM SHARED A(1 TO n) AS INTEGER
CONST b = 0
 
FOR i = 1 TO n
   A(i) = 40 * RND - 20
   PRINT A(i);
NEXT i
PRINT : PRINT
 
max = A(1)
imax = 1
min = max
imin = 1
 
IF Kol(n) > n \ 2 THEN
   FOR i = 1 TO n
      IF max < A(i) THEN max = A(i): imax = i
   NEXT i
   PRINT "MAX ="; max; "INDEX ="; imax
ELSE
   FOR i = 1 TO n
      IF min > A(i) THEN min = A(i): imin = i
   NEXT i
   PRINT "MIN ="; min; "INDEX ="; imin
END IF
END
 
FUNCTION Kol (n)
   IF n = 1 THEN
      IF A(n) > b THEN Kol = 1
   ELSE
      K = Kol(n - 1)
      IF A(n) > b THEN K = K + 1
      Kol = K
   END IF
END FUNCTION

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

Объявление функции Kol с параметром n.
Инициализация переменной n значением 12.
Инициализация массива A размером n элементов.
Установка константы b равной 0.
Заполнение массива A случайными числами от 40 * RND до 20.
Вывод на экран каждого элемента массива A.
Нахождение максимального значения в массиве A и его индекса.
Нахождение минимального значения в массиве A и его индекса.
Проверка условия, если количество элементов массива Kol(n) больше половины, то выводится максимальное значение и его индекс.
Если условие не выполняется, то выводится минимальное значение и его индекс.
Определение рекурсивной функции Kol для подсчета количества элементов массива A, больше заданного числа b.
Если параметр n равен 1, то функция Kol возвращает 1, иначе функция вызывает саму себя для n-1 и проверяет условие, если A(n) больше b, то к результату прибавляется 1.
Код выводит на экран значение функции Kol.