1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | CLS INPUT "vvedite razmer massiva"; n DIM x(n), y(n) FOR i = 1 TO n PRINT "vvedite element "; i INPUT x(i) NEXT FOR z = 2 TO 1 STEP - 1 FOR i = z TO n STEP 2 j = j + 1 y(j) = x(i) NEXT NEXT PRINT "massiv x" FOR i = 1 TO n PRINT x(i); NEXT PRINT PRINT "massiv y" FOR i = 1 TO n PRINT y(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )