Преобразовать целочисленный массив размера N - QBasic

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

Дан целочисленный массив размера N. Преобразовать его, прибавив к четным числам последний элемент. Первый и последний элементы массива не изменять

Решение задачи: «Преобразовать целочисленный массив размера N»

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

CLS
INPUT "N = "; n
DIM x(1 TO n) AS LONG
 
FOR i = 1 TO n
   x(i) = 20 * RND - 10
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 2 TO n - 1
   IF x(i) MOD 2 = 0 THEN
      x(i) = x(i) + x(n)
   END IF
NEXT
 
FOR i = 1 TO n
   PRINT x(i);
NEXT
END

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

Вот что происходит в этом коде:

CLS — очистка экрана.
INPUT N =; n — запрос на ввод размера массива N.
DIM x(1 TO n) AS LONG — создание массива x размером N.
FOR i = 1 TO n — цикл по всем элементам массива x.
x(i) = 20 * RND — 10 - присваивание каждому элементу массива x случайного числа от -10 до 10.
PRINT x(i); — вывод значения каждого элемента массива x.
NEXT — завершение цикла.
PRINT : PRINT — вывод двух пустых строк.
FOR i = 2 TO n — 1 - цикл по всем элементам массива x, начиная с индекса 2 и заканчивая n-1.
IF x(i) MOD 2 = 0 THEN — проверка, является ли значение элемента x(i) четным числом.
x(i) = x(i) + x(n) — присваивание элементам массива x значения элемента x(n).
END IF — завершение условия.
NEXT — завершение цикла.
FOR i = 1 TO n — цикл по всем элементам массива x.
PRINT x(i); — вывод значения каждого элемента массива x.
NEXT — завершение цикла.
END — завершение программы.