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