?
?來源:程序化99網( www.kzuj.com.cn )
FOR I:=1 TO 100 DO X[I]:REF(H,I)-REF(L,I); FOR S:=1 TO 100 DO FOR J:=1 TO 100-S DO IF X[J]>X[J+1] THEN BEGIN XX:=X[J]; X[J]:=X[J+1]; X[J+1]:=XX; END