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

FOR I = LBOUND(A) TO UBOUND(A) - 1
    IF ABS(A(I)) + ABS(A(I + 1)) = 0 THEN
        PRINT I, I + 1
    END IF
NEXT I

IF ABS(SGN(A(I))) + ABS(SGN(A(I + 1))) = 0 THEN

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 ABS(SGN(A(I))) + ABS(SGN(A(I + 1))) = 0 THEN
        PRINT I, I + 1
    END IF
NEXT I
PRINT "Вариант с функциями ABS и SGN:"; TIMER - T; "сек"
T = TIMER
FOR I = 0 TO 9998
    IF A(I) = 0 AND A(I + 1) = 0 THEN
        PRINT I, I + 1
    END IF
NEXT I
PRINT "Вариант с функцией AND:"; TIMER - T; "сек"

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 j = 0 TO 100
    FOR I = 0 TO 9998
        IF ABS(SGN(A(I))) + ABS(SGN(A(I + 1))) = 0 THEN
            'PRINT I, I + 1
        END IF
    NEXT I
NEXT j
PRINT "Вариант с функциями ABS и SGN:"; TIMER - T; "сек"
 
T = TIMER
FOR j = 0 TO 100
    FOR I = 0 TO 9998
        'IF A(I) = 0 AND A(I + 1) = 0 THEN
        IF A(I) OR A(I + 1) THEN
        ELSE
            'PRINT I, I + 1
        END IF
    NEXT I
NEXT j
PRINT "Вариант с функцией OR:"; TIMER - T; "сек"

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; "сек"

CLS
DIM A(9999) AS INTEGER
DIM I AS INTEGER
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; "сек"

DECLARE FUNCTION f% (a%(), n!)
 
CLS
RANDOMIZE TIMER
CONST n = 17
DIM SHARED j
DIM a(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   a(i) = FIX(7 * RND)
   PRINT a(i);
NEXT i
PRINT
 
IF f(a(), n) THEN PRINT "YES" ELSE PRINT "NO"
IF j THEN PRINT "INDEX ="; j - 1; j
END
 
FUNCTION f% (a() AS INTEGER, n)
   IF n = 2 THEN
      IF a(1) = 0 AND a(2) = 0 THEN f = -1
   ELSE
      IF a(n) = 0 AND a(n - 1) = 0 THEN
         f = -1: j = n: EXIT FUNCTION
      ELSE
         f = f(a(), n - 1)
      END IF
   END IF
END FUNCTION