1 2 3 4 5 6 7 8 | RANDOMIZE TIMER input n DIM a(n) FOR i = 1 TO n: a(i) = FIX(RND * 35 ): NEXT FOR i = 1 TO n IF a(i) = 17 THEN k=i next print n-k+ 1 |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 | RANDOMIZE TIMER input n DIM a(n) FOR i = 1 TO n: a(i) = FIX(RND * 35 ): NEXT FOR i = 1 TO n IF a(i) = 17 THEN k=i next print n-k+ 1 |
Тестирование выполнено в программе QB64 ( Скачать )