1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | INPUT "vvedite kol-vo chisel ", n RANDOMIZE TIMER DIM a(n) FOR i = 1 TO n a(i) = INT(RND * 20 ) - 10 NEXT PRINT "massiv" FOR i = 1 TO n PRINT a(i); NEXT PRINT FOR i = 1 TO n \ 2 SWAP a(i), a(n - i + 1 ) NEXT PRINT "massiv v obratnom poryadke" FOR i = 1 TO n PRINT a(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )