Сформировать массив Y(n) из исходного массива X(n) с циклическим сдвигом их на d элементов. - QBasic

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

Задание № 1. Сформировать массив Y(n) из исходного массива X(n) с циклическим сдвигом их на d элементов. Задание № 2. В исходном массиве найти номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте).

Решение задачи: «Сформировать массив Y(n) из исходного массива X(n) с циклическим сдвигом их на d элементов.»

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

DEFINT D, I-J, N, X-Y
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite SDVIG D"; d
DIM x(n)
DIM y(n)
 
PRINT
FOR i = 1 TO n
   x(i) = 81 * RND - 40.5
   PRINT USING "####"; x(i);
NEXT i
PRINT
 
FOR i = 1 TO n
   j = i - d
   IF j <= 0 THEN j = j + n
   IF j > n THEN j = j - n
   y(i) = x(j)
   PRINT USING "####"; y(i);
NEXT i
END

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

Вот что делает этот код:

Запрашивает у пользователя два ввода:
- N (количество элементов в массиве X)
- D (количество элементов, на которое нужно сдвинуть элементы массива X для формирования массива Y)
Создает два массива:
- X (размерностью n)
- Y (размерностью n)
Заполняет массив X случайными числами от 0 до 80 с шагом 0.5.
Циклически сдвигает элементы массива X на d элементов вправо и сохраняет их в массиве Y. Если сдвиг превышает размер массива X, то происходит обрезка массива Y.
Выводит значения массива Y на экран.