Выяснить имеются ли в массиве А два идущих подряд нулевых элемента - QBasic

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

Выяснить имеются ли в массиве А (а1, а2, ...,аn) два идущих подряд нулевых элемента. Напечатать их порядковые номера. Заранее спасибо большое!

Решение задачи: «Выяснить имеются ли в массиве А два идущих подряд нулевых элемента»

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

CLS
DIM A(9999)
RANDOMIZE TIMER
PRINT "Заполнение массива из 10000 элементов..."
FOR I = 0 TO 9999
    A(I) = INT(RND * 50) - 25
NEXT I
PRINT "Расчет времени выполнения..."
 
T = TIMER
FOR I = 0 TO 9998
    IF A(I) = 0 THEN
        IF A(I + 1) = 0 THEN
            PRINT I, I + 1
        END IF
    END IF
NEXT I
PRINT "Вариант с последовательным сравнением:"; TIMER - T; "сек"

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

Объявляется массив A размером 9999 элементов.
Заполняется массив A случайными числами от -25 до 25 с шагом 1.
Вычисляется время выполнения заполнения массива.
В цикле перебираются элементы массива A от 0 до 9998.
Если текущий элемент массива A равен 0, то проверяется следующий элемент массива A.
Если следующий элемент массива A также равен 0, то выводится текущий индекс элемента массива A.
После выполнения цикла вычисляется время выполнения проверки на последовательность нулевых элементов.
Выводится время выполнения проверки на последовательность нулевых элементов.