Заполнить случайным образом одномерный массив из n элементов - QBasic

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

Задача: Заполнить случайным образом одномерный массив из n элементов и сдвинуть элементы циклически на одну позицию вправо.

CLS
RANDOMIZE TIMER
DIM A(10)
FOR I = 1 TO 10
    A(i) = INT(RND * 20) + 2
     LOCATE 3, 4 * i
     PRINT A(i);
NEXT i
     A(0) = A(10)
FOR I = 1 TO 10
      LOCATE 5, 4 * i
      PRINT A(I – 1);
NEXT i

На выходе имеем:

12   18   8   2   2   19   19   17   5   8
 8    12  18   8   2   2   19   19   17   5

Всё-таки эту задачу я сделал. И, похоже, даже правильно,раз результат получился нужный. Но возник вопрос: А можно сдвинуть исходный массив на две позиции так,чтобы последний и предпоследний элементы массива оказались на месте первого и второго. А если возможен сдвиг на две позиции, то возможен сдвиг и на три, четыре и т. д. позиции? Как сделать это - у меня не получилось. У вас должно получиться.

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

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

                            DIM a(1 TO 10) AS LONG
DIM i AS LONG, j AS LONG, n AS LONG, k AS LONG, t AS LONG
n = 6
PRINT "ishodny massiv"
FOR i = 1 TO n
    READ a(i)
    PRINT a(i);
NEXT i
PRINT
k = 6
PRINT "so sdvigom"; k; "raz"
FOR j = 1 TO k
    t = a(n)
    FOR i = n TO 2 STEP -1
        a(i) = a(i - 1)
    NEXT i
    a(1) = t
    FOR i = 1 TO n
        PRINT a(i);
    NEXT i
    PRINT
NEXT j
 
DATA 8, 12, 3, 9, 7, 5
                        