> 看排行榜，牛们0ms的代码都很长。难道是什么顺序统计算法？有哪位0ms的贴下代码学习下？
var
  i,n:longint;
  a:array[1..10000]of longint;
procedure sort(l,r:longint);
  var
    i,j,x,y:longint;
  begin
    i:=l;j:=r;x:=a[(l+r) div 2];
    repeat
      while a[i]<x do inc(i);
      while x<a[j] do dec(j);
      if not(i>j)
         then begin
           y:=a[i];a[i]:=a[j];a[j]:=y;
           inc(i);j:=j-1;
         end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;
begin
  readln(n);
  for i:=1to n do readln(a[i]);
  sort(1,n);
  writeln(a[(1+n)div 2]);
end.
水水的代码