Вывод случайных чисел без повтора - QBasic

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

Нужно написать программу, чтобы числа появлялись случайным образом и не повторялись, в интервале от 1 до 36. и выводились 5 цифр.

Решение задачи: «Вывод случайных чисел без повтора»

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

DIM arr(35)AS INTEGER
RANDOMIZE TIMER
    FOR i = 0 TO 35
        j = INT(RND * i)
        arr(i) = arr(j)
        arr(j) = i+1
    NEXT i
 
    FOR i = 0 TO 4
       PRINT arr(i)
    NEXT i

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

В этом коде:

Создается массив arr размером 35 ячеек для хранения чисел.
С помощью функции RANDOMIZE TIMER происходит инициализация генератора случайных чисел.
В цикле от 0 до 35 происходит перестановка чисел в массиве arr, чтобы каждое число попало на свое место.
В цикле от 0 до 4 выводятся числа из массива arr. Таким образом, данный код выводит случайные числа от 1 до 35, исключая повторяющиеся числа.