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

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

1) Для заданной целочисленной матрицы А(N,М) определите, является ли сумма ее элементов четным числом, и выведите на печать соответствующий текст. 2) В заданном массиве X(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте ( первой по порядку, если их несколько). 3) Вычислите дробную часть среднего геометрического трех заданных вещественных чисел. Большое спасибо.

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

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

CLS
INPUT "N"; n
RANDOMIZE TIMER
DIM x(n)
PRINT "Massiv X:"
FOR i = 1 TO n
    x(i) = INT(100 * RND(1) - 50)
    PRINT x(i);
NEXT
PRINT
max1 = x(1)
FOR i = 1 TO n
    IF x(i) > max1 THEN max1 = x(i): max2 = i
NEXT
PRINT "Massiv X (noviy):"
FOR i = 1 TO n
    IF i < max2 AND x(i) < 0 THEN x(i) = 0
    PRINT x(i);
NEXT

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

Задается число N, на которое создается матрица X.
Задается начальное значение переменной max1 равное первому элементу матрицы X.
Происходит сравнение каждого элемента матрицы X с max1, и если элемент больше max1, то max1 заменяется на этот элемент, а max2 запоминает номер этого элемента.
Выводится матрица X.
Происходит проверка каждого элемента матрицы X на четность. Если элемент меньше нуля и его номер меньше max2, то он заменяется на ноль.
Выводится измененная матрица X.