Определить сумму элементов массива с нечетными номерами - QBasic

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

Необходимо решить к экзамену 1) Определить сумму элементов массивы X(n) с нечетными номерами. Вывести массив и полученную сумму. Упорядочить массив X(n) по неубыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры. Уже имеется:

CLS
INPUT "Vvedite kol-vo elementov massiva:", n
DIM mas(n) AS INTEGER
FOR i = 1 TO n
mas(i) = RND * 59 - 3
PRINT mas(i);
NEXT
FOR i = 1 TO n
FOR j = i + 1 TO n
IF mas(i) > mas(j) THEN SWAP mas(i), mas(j)
NEXT j
NEXT i
PRINT
FOR i = 1 TO n
PRINT mas(i);
NEXT
END

2)Дана матрица целых чисел X(n,m). Получить новую матрицу, элементы строк которой больше элементов исходной матрицы на величину максимального элемента соответствующей строки исходной матрицы. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры. 3)Определить для строки a$ является ли она симметричной. Вывести строку и результат анализа. 4)В исходной строке a$ заменить все вхождения заданной последовательности символов x$ на другую заданную последовательность символов y$. Заранее спасибо.

Решение задачи: «Определить сумму элементов массива с нечетными номерами»

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

CLS
RANDOMIZE TIMER
INPUT n, m
DIM a(n, m + 1)
FOR i = 1 TO n
        a(i, m + 1) = 0
        FOR j = 1 TO m
                a(i, j) = INT(RND * 10)
                IF a(i, j) > a(i, m + 1) THEN a(i, m + 1) = a(i, j)
                PRINT a(i, j);
        NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT a(i, j) + a(i, m + 1);
        NEXT j: PRINT
NEXT i: PRINT

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

CLS - очистка экрана
RANDOMIZE TIMER - инициализация генератора случайных чисел
INPUT n, m - ввод с клавиатуры двух чисел n и m (количество строк и столбцов матрицы соответственно)
DIM a(n, m + 1) - создание матрицы a размером n строк и (m+1) столбцов
FOR i = 1 TO n - цикл по строкам матрицы
a(i, m + 1) = 0 - инициализация суммы элементов в последней строке матрицы
FOR j = 1 TO m - цикл по столбцам матрицы
a(i, j) = INT(RND * 10) - заполнение матрицы случайными числами от 0 до 9
IF a(i, j) > a(i, m + 1) THEN a(i, m + 1) = a(i, j) - обновление суммы элементов в последней строке матрицы
PRINT a(i, j); - печать значения элемента матрицы
NEXT j - переход к следующему столбцу
PRINT - печать символа табуляции для разделения элементов матрицы
NEXT i - переход к следующей строке
FOR i = 1 TO n - цикл по строкам матрицы
FOR j = 1 TO m - цикл по столбцам матрицы
PRINT a(i, j) + a(i, m + 1); - печать суммы элемента и суммы элементов в последней строке матрицы
NEXT j - переход к следующему столбцу
PRINT - печать символа табуляции для разделения элементов матрицы
NEXT i - переход к следующей строке
PRINT - печать символа двойной кавычки для завершения программы