Можно ли поменять местами два соседних элемента одномерного массива не используя оператор SWAP ? - QBasic

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

можно ли обойтись без SWAP, если я хочу поменять местами элементы?

Решение задачи: «Можно ли поменять местами два соседних элемента одномерного массива не используя оператор SWAP ?»

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

CLS
INPUT "Vvedite znachenie K: ", K
INPUT "Vvedite razmer massiva: ", N
DIM A(1 TO N), B(1 TO N)
FOR I = 1 TO N
PRINT "Vvedite znachenie A("; I; "): ";
INPUT "", A(I)
B(I) = A(I)
NEXT I
PRINT "MASSIV A:";
FOR I = 1 TO N
PRINT A(I);
NEXT I
IF K < N THEN SWAP B(K), B(K + 1)
PRINT
PRINT "MASSIV B:";
FOR I = 1 TO N
PRINT B(I);
NEXT I

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

Сначала пользователю предлагается ввести значение переменной K и размер массива N.
Затем создаются два массива A и B, размером N.
Далее, в цикле N раз, пользователю предлагается ввести значение каждого элемента массива A, которое затем копируется в массив B.
После ввода всех элементов массива A, выводится его содержимое.
Если значение K меньше N, то производится обмен элементов B(K) и B(K+1).
Затем выводится содержимое массива B.
В данном коде оператор SWAP используется для обмена элементов массива B.