快排
var
i:integer;
a:array[1..10] of integer;
procedure kuai(l,r:integer);
var
x,i,j,y:integer;
begin
i:=l; j:=r;
x:=a[(l+r) div 2];
repeat
while a[i]<x do inc(i);
while a[j]>x do dec(j);
if i<=j then begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i); dec(j);
end;
until i>j;
if i<r then kuai(i,r);
if j>l then kuai(l,j);
end;
begin
for i:=1 to 10 do read(a[i]);
kuai(1,10);
for i:=1 to 10 do write(a[i],' ');
end.


Name: asda asdasd
         UserName: llxchad1
         Password: cy7s4cf