Mysoft

Untitled

Mar 4th, 2022 (edited)
338
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.22 KB | None | 0 0
  1. DEFINT I
  2. RANDOMIZE TIMER
  3.  
  4. DIM iArr(0 TO 19)
  5. FOR iN = 0 TO 19
  6.   iArr(iN) = iN+10
  7. NEXT iN
  8. FOR iN = 0 TO 19
  9.   SWAP iArr(iN),iArr(INT(RND*20))
  10. NEXT iN
  11.  
  12. 'show the numbers
  13. FOR iN = 0 TO 19
  14.   PRINT iArr(iN);
  15. NEXT iN
  16.  
  17.  
Add Comment
Please, Sign In to add comment