В массиве С найти среднее арифметическое элементов, больших 10 - QBasic

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

Помогите пожалуйста( 1)Даны 2 массива: A(K) и B(150).Переписать положительные элементы массивов в массиве C, в массиве C найти среднее арифметическое элементов больших 10. И вторая прога 2)Дана квадратная матрица порядка 10.Удалить из нее все столбцы с нечётными номерами.В полученном массиве найти сумму нечётных элементов. И ещё не подскажете алгоритм к этим прогам Заранее благодарен!

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

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

CLS
n = 10
DIM a(1 TO n, 1 TO n), c(1 TO n, 1 TO n)
PRINT "Дана матрица:"
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 100 - 50)
PRINT a(i, j);
NEXT j
PRINT
NEXT i
REM удаляем столбцы
FOR i = 1 TO n
FOR j = 1 TO n
IF j MOD 2 = 0 THEN c(i, j) = a(i, j)
NEXT j
NEXT i
PRINT
PRINT "Матрица без нечетных столбцов"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT c(i, j);
NEXT j
PRINT
NEXT i
REM находим сумму нечетных элементов
s = 0
 
PRINT
FOR i = 1 TO n
FOR j = 1 TO n
IF c(i, j) MOD 2 THEN s = s + c(i, j)
NEXT j
NEXT i
PRINT "Сумма нечетных элементов="; s
END

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

Объявлены матрицы a и c размером 10x10
В цикле выводятся элементы матрицы a
В цикле удаляются четные столбцы матрицы a и записываются в матрицу c
Выводится матрица c
В цикле находятся суммы нечетных элементов матрицы c и записывается в переменную s
Выводится значение переменной s