1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CLS n = 12 DIM k(n) FOR i = 1 TO n PRINT "vvedite element"; i INPUT k(i) NEXT FOR i = 1 TO n IF k(i) = 0 THEN c = i: EXIT FOR NEXT CLS FOR i = 1 TO n PRINT k(i); NEXT PRINT PRINT "c ="; c |
Тестирование выполнено в программе QB64 ( Скачать )