Заполнить случайным образом одномерный массив из 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

DIM a(1 TO 10) AS LONG
DIM i AS LONG, j AS LONG, n AS LONG
RANDOMIZE TIMER
n = 10 'кол-во элементов в массиве
PRINT "Исходный массив"
FOR i = 1 TO n
    a(i) = INT(RND * 20) + 2
    PRINT i, a(i)
NEXT i
j = 2 'сдвиг влево, j>=0, j<=n
PRINT "Массив со сдвигом"
FOR i = 1 TO n
    PRINT i, a((i + n - 1 - j) MOD n + 1)
NEXT i

CLS
DIM a(1 TO 10) AS LONG
DIM i AS LONG, j AS LONG, n AS LONG
   RANDOMIZE TIMER
   n = 10  ‘Кол. элементов массива
   PRINT “ Исходный массив:”
     FOR i = 1 TO n
  a(i) = INT(RND * 20) + 2
    PRINT i, a(i)
NEXT i
j = 2  ‘Сдвиг влево,  J >=0,  j<=n
PRINT “ Массив со сдвигом.”
   FOR i = 1 TO n
PRINT  i, a((i + n – 1 – j) MOD n + 1)
NEXT i

1                         16  
2                         12
3                         13
4                         7
5                         8
6                         17
7                         2
8                         17 
9                         18
10                       16

1                         18
2                         16
3                         16
4                         12
5                         13
6                         7
7                         8

   Номера элементов:
1   2   3   4   5   6
Исходный массив:
8   12   3   9   7   5

1-й сдвиг:   5   8   12   3   9   7
2-й сдвиг:   7   5   8   12   3   9
3-й сдвиг:   9   7   5   8   12   3
4-й сдвиг:   3   9   7   5   8   12
5-й сдвиг:   12   3   9   7   5   8
6-й сдвиг:   8   12   3   9   7   5 (исходный массив)

DIM a(1 TO 10) AS LONG
DIM i AS LONG, j AS LONG, n AS LONG, k AS LONG, t AS LONG
n = 10 'кол-во элементов
PRINT "Исходный массив"
FOR i = 1 TO n
    a(i) = INT(RND * 20 + 1)
    PRINT a(i);
NEXT i
PRINT
k = 5 'на сколько нужно сдвинуть массив
PRINT "Сдвигаем массив вправо последовательно"; k; "раз"
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
PRINT "Итоговый массив со сдвигом вправо"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT

DIM a(1 TO 10) AS LONG, b(1 TO 10) AS LONG
DIM i AS LONG, j AS LONG, n AS LONG, k AS LONG
n = 10 'кол-во элементов
PRINT "Исходный массив"
FOR i = 1 TO n
    a(i) = INT(RND * 20 + 1)
    b(i) = a(i) 'запоминаем копию массива
    PRINT a(i);
NEXT i
PRINT
k = 5 'на сколько нужно сдвинуть массив
PRINT "Итоговый массив со сдвигом вправо"
FOR i = 1 TO n
    a(i) = b((i + n - k - 1) MOD n + 1)
    PRINT a(i);
NEXT i
PRINT

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