主题：[原创]PEL版冒泡排序

input:vector(50,1,100,1);

variable:a[vector]=0;

msgout(1,'排序前');

for i=1 to vector do begin
 a[i]:=rand(vector); 
 msgout(1,numtostr(a[i],0));
end

for j=2 to vector do begin
 for i=vector downto j do begin
  if a[i]<a[i-1] then begin
   t:=a[i];
   a[i]:=a[i-1];
   a[i-1]:=t;
  end
 end
end

msgout(1,'排序后');

for i=1 to vector do begin
 msgout(1,numtostr(a[i],0));
end