Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу - QBasic

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

Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому числу.

Решение задачи: «Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу»

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

CLS
RANDOMIZE TIMER
FOR i = 1 TO 10
    'INPUT a
    a = RND * 100
    PRINT i; ":"; a
    IF i = 1 OR m > ABS(a - INT(a + .5)) THEN m = ABS(a - INT(a + .5)): j = i
NEXT
PRINT "Blizhayshee k celomu #"; j

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

CLS — очистка экрана
RANDOMIZE TIMER — установка случайного числа для повторного вычисления
FOR i = 1 TO 10 — цикл от 1 до 10
a = RND * 100 — присваивание переменной a случайного числа от 0 до 100
PRINT i;:; a — вывод на экран номера i и значения a разделенных двоеточием
IF i = 1 OR m > ABS(a — INT(a + .5)) — проверка условия для переменной m
m = ABS(a — INT(a + .5)) — присваивание переменной m значения абсолютной разницы между a и ближайшим целым числом
j = i — присваивание переменной j значения i
NEXT — переход к следующему шагу цикла
PRINTBlizhayshee k celomu #; j — вывод на экран фразы Blizhayshee k celomu # и значения переменной j