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

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

Доброго времени суток. Прошу помочь с написанием 2-ух программ для qBasic по Массивам. 1. Определить для массива X(n) алгебраические суммы четных и нечетных элементов массива. Вывести исходный массив и полученные значения. Упорядочить массив X(n) по возрастанию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. значения буквенных переменных задавать с клавиатуры. 2. Дана матрица целых чисел X(n,m). Переставляя строки и столбцы, добиться, чтобы максимальных элемент матрицы переместился в левый верхний угол. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры. Заранее благодарен.

Очень прошу помочь...

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

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

CLS
  INPUT "Vvedite kol-vo elementov: ", n
  DIM X(n) AS INTEGER
    '  Генерация массива
  PRINT "<br> Ishodnyj <br>"
  FOR i = 1 TO n
    X(i) = RND * 30
    PRINT X(i);
  NEXT
    '  Поиск
  FOR i = 1 TO n
    IF X(i) AND 1 THEN
      S2 = S2 + X(i)
    ELSE S1 = S1 + X(i)
    END IF
  NEXT: PRINT
    '  Сортировка
  FOR j = n - 1 TO 1 STEP -1
     FOR i = 1 TO j
        IF X(i) > X(i + 1) THEN SWAP X(i), X(i + 1)
     NEXT
  NEXT
    '  Вывод
  PRINT "<br> Novyj <br>"
  FOR i = 1 TO n
    PRINT X(i);
  NEXT: PRINT : PRINT "<br>"
PRINT "Summa chetnyh  : "; S1
PRINT "Summa nechetnyh: "; S2

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

Сначала программа запрашивает у пользователя количество элементов в массиве и сохраняет это число в переменную n.
Затем программа создает массив X размером n и заполняет его случайными целыми числами от 0 до 30 с помощью цикла FOR и оператора RND.
Далее программа сортирует массив X в порядке возрастания с помощью двух вложенных циклов FOR и оператора SWAP.
После сортировки программа выводит отсортированный массив X на экран.
Затем программа вычисляет сумму четных и нечетных элементов массива с помощью переменных S1 и S2.
Наконец, программа выводит сумму четных элементов на экран, а затем сумму нечетных элементов.