Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел. - QBasic

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

Ребят помогите ломаю голову сижу.... вообщем в qbasic'e Задача 1 : Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел. Задача 2 : Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный размер. Заранее очень благодарен...

Решение задачи: «Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.»

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

CLS
RANDOMIZE TIMER
DIM a(4, 4)
mini = 2: minj = 1
maxi = 3: maxj = 1
a(1, 2) = 100
a(1, 3) = 0
 
FOR j = 1 TO 4
        FOR i = 1 TO 4
                a(j, i) = INT(RND * 89) + 10
                IF a(j, i) > a(maxj, maxi) THEN maxj = j: maxi = i
                IF a(j, i) < a(minj, mini) THEN minj = j: mini = i
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j
SWAP a(minj, mini), a(maxj, maxi): PRINT
FOR j = 1 TO 4
        FOR i = 1 TO 4
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j

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

Установка начального значения переменных:
- mini = 2: minj = 1
- maxi = 3: maxj = 1
- a(1, 2) = 100
- a(1, 3) = 0
Заполнение массива a случайными двузначными числами:
- FOR j = 1 TO 4 (строки)
  - FOR i = 1 TO 4 (столбцы)
  - a(j, i) = INT(RND * 89) + 10
Поиск максимального и минимального значения в массиве a:
- IF a(j, i) > a(maxj, maxi) THEN maxj = j: maxi = i
- IF a(j, i) < a(minj, mini) THEN minj = j: mini = i
Вывод на экран заполненного массива a:
- PRINT a(j, i); (выводим значения в столбце i текущей строки j)
- NEXT i: (переходим к следующему столбцу)
- PRINT (выводим значения в строке j)
- NEXT j: (переходим к следующей строке)
Сортировка массива a по возрастанию:
- SWAP a(minj, mini), a(maxj, maxi): (меняем местами минимальное и максимальное значение)
Вывод отсортированного массива a:
- FOR j = 1 TO 4
  - FOR i = 1 TO 4
  - PRINT a(j, i); (выводим значения в столбце i текущей строки j)
  - NEXT i: (переходим к следующему столбцу)
- NEXT j: (переходим к следующей строке)