DIM a(20)
FOR i=1 TO 20
INPUT a(i)
NEXT i
FOR i=1 TO 20
IF a(i)= 0 THEN PRINT i
NEXT
END
Тестирование выполнено в программе QB64 ( Скачать )
DIM a(20)
FOR i=1 TO 20
INPUT a(i)
NEXT i
FOR i=1 TO 20
IF a(i)= 0 THEN PRINT i
NEXT
END
Тестирование выполнено в программе QB64 ( Скачать )