Вывести на печать номера нулевых элементов массива А(20)- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment