1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | CLS INPUT "Razmernost massiva="; n DIM c(n) INPUT "a="; a INPUT "b="; b RANDOMIZE TIMER FOR i = 1 TO n c(i) = INT(a + (RND * (b - a + 1 ))) NEXT i PRINT "Ishodniy massiv" FOR i = 1 TO n PRINT c(i); NEXT i PRINT FOR i = 2 TO n STEP 2 SWAP c(i), c(i - 1 ) NEXT i PRINT "Massiv posle preobrazovaniy" FOR i = 1 TO n PRINT c(i); NEXT i |
Тестирование выполнено в программе QB64 ( Скачать )