Программа

CLS

INPUT "введи размер массива " ; n

DIM A(n)

PRINT "введи массив"

FOR i = 1 TO n

INPUT A(i)

NEXT i

'Поиск позиции первого четного элемента

FOR i = 1 TO n

IF A(i) MOD 2 = 0 THEN L = i : EXIT FOR

NEXT i

'Поиск номера первого нулевого элемента после первого четного элемента

FOR i = L+1 TO n

IF A(i) = 0 THEN C = i

NEXT i

IF C<>0 THEN

PRINT "номер нулевого элемента =" ; C

ELSE

PRINT "нулевых элементов после первого четного нет"

END IF

END