Advertisement
Regela

Basic Array Sort

Mar 13th, 2018
624
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DIM A(9) As Integer
  2. DIM i As Integer
  3. DIM j As Integer
  4. DIM buff As Integer
  5. DIM count As Integer = 0
  6. A(0)=5
  7. A(1)=3
  8. A(2)=4
  9. A(3)=2
  10. A(4)=1
  11. A(5)=6
  12. A(6)=3
  13. A(7)=2
  14. A(8)=4
  15. For j=0  to  8
  16.     For i = 0 to 7
  17.         if A(i)>A(i+1) Then
  18.             buff=A(i)
  19.             A(i)=A(i+1)
  20.             A(i+1)=buff
  21.         End If
  22.     Next
  23. Next
  24. For i = 0 to 7
  25.     print A(i)
  26.     if A(i) <> A(i+1)then count=count+1 end if
  27. Next
  28. print A(8)
  29. print "Count: ";Count
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement