Вычислить среднее арифметическое значение нечетных элементов матрицы, кратных семи - QBasic

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

помогите 2 задачи решить: 1) Дана числовая последовательность Q(120). Вычислить среднее арифметическое значение нечетных элементов кратных числу семь. 2) В квадратной матрице порядка N найти в каждом столбце количество элементов превышающих число А.

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

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

FOR i = 1 TO n 
IF q(i) MOD 7 = 0 AND q(i) MOD 2<>0 THEN s = s + q(i): k = k + 1
NEXT i

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

Задается размер матрицы n
Переменная s инициализируется нулем, а переменная k инициализируется единицей
Происходит итерация по всем элементам матрицы q(i) от 1 до n
Проверяется условие q(i) MOD 7 = 0 AND q(i) MOD 2<>0, где q(i) - это элемент матрицы, i - номер элемента, MOD - оператор взятия остатка от деления, AND - логическая операция И, s - сумма нечетных элементов, k - количество нечетных элементов, кратных семи
- Если условие выполняется, то элемент q(i) прибавляется к переменной s, а значение переменной k увеличивается на единицу
После завершения цикла, вычисляется среднее арифметическое значение нечетных элементов матрицы, кратных семи, по формуле s / k