ลงโฆษณา

max=ubound(MyArray)

For i=0 to max 
   For j=i+1 to max 
      if MyArray(i)>MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next 
next 

max=ubound(MyArray)

For i=0 to max 
   For j=i+1 to max 
      if MyArray(i)<MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next 
next