17 lines
217 B
Text
17 lines
217 B
Text
|
N =20
|
||
|
|
dim IntArray( N)
|
||
|
|
|
||
|
|
print "Original order"
|
||
|
|
for i =1 to N
|
||
|
|
t =int( 1000 *rnd( 1))
|
||
|
|
IntArray( i) =t
|
||
|
|
print t
|
||
|
|
next i
|
||
|
|
|
||
|
|
sort IntArray(), 1, N
|
||
|
|
|
||
|
|
print "Sorted oprder"
|
||
|
|
for i =1 to N
|
||
|
|
print IntArray( i)
|
||
|
|
next i
|