Заменить четные элементы массива на число -2 - QBasic

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

задача №1 Дан массив А(10)элементы которого целые числа из интервала (0;9)Вывести А(10) на экран.Заменить четные элементы на число -2.Полученые массив вывести на экран задача №2 Дан массив С(4;5)элементы которого вычисляются по формуле С(i ;j)=3*I-2*j Вывести массив на экран. Подсчитав сумму каждого столбца Помогите пожалуйста решить задачу...

Решение задачи: «Заменить четные элементы массива на число -2»

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

CLS
DIM a(10)
RANDOMIZE TIMER
FOR i = 1 TO 10
        a(i) = INT(RND * 9)
        PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO 10
        IF i MOD 2 = 0 THEN a(i) = -2
        PRINT a(i);
NEXT i

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

Объявляется массив a(10) для хранения 10 чисел.
С помощью цикла FOR и функции RND генерируются случайные числа от 0 до 9 и записываются в массив a.
Выводится на экран содержимое массива a.
С помощью цикла FOR проверяется четность каждого элемента массива a.
Если элемент четный, то его значение заменяется на -2.
Выводится на экран обновленное значение массива a.