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