- -

冒泡是计算机编程里的一种排序方法——冒泡排序！！
procedure swap(a,b:longint);
var t:longint;
begin
t:=a;
a:=b;
b:=t;
end;
for i:=1 to n-1 do
for j:=1 to i do
if a[i]>a[j] then swap(a[i],a[j]);