1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | CLS RANDOMIZE TIMER n = 10 DIM a(n) FOR i = 1 TO n a(i) = FIX(RND * 9 + 1 ) NEXT PRINT "massiv" FOR i = 1 TO n PRINT a(i); NEXT FOR i = 1 TO n a(i) = a(i) * 10 NEXT PRINT PRINT "new massiv 1 -n" FOR i = 1 TO n PRINT a(i); NEXT PRINT PRINT "new massiv n- 1 " FOR i = 1 TO n PRINT a(n - i + 1 ); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )