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

1
2
3
4
5
6
7
8
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