DECLARE SUB MIXER (B() AS INTEGER) DEFINT A-Z DIM A(36) CLS PRINT "Упорядоченная колода:" FOR K = 0 TO 35: A(K) = K: PRINT USING "####"; A(K); : NEXT K FOR J = 0 TO 4 MIXER A() PRINT "Перетасованная колода:" FOR K = 0 TO 35: PRINT USING "####"; A(K); : NEXT K NEXT J END SUB MIXER (B() AS INTEGER) DEFINT A-Z RANDOMIZE INT(32767 * RND) FOR J = 0 TO 10000 I = INT(35 * RND + .5) TMP = B(0) B(0) = B(I) B(I) = TMP NEXT J END SUB