POJ 2388(中位数）

最新推荐文章于 2019-01-08 03:11:16 发布

最新推荐文章于 2019-01-08 03:11:16 发布 · 205 阅读

本文介绍了一个使用Pascal语言实现的快速排序算法来找出一组整数的中位数。程序首先读取整数的数量，然后读取具体的整数，并通过快速排序算法进行排序。最后输出排序后的中位数。

求一组数的中位数

巨羡慕C党有sort用

Program P2388;
var
   n,i,j:longint;
   a:array[1..10010] of longint;
Procedure qsort(l,r:longint);
var
   i,j,m,p:longint;
begin
   i:=l;
   j:=r;
   m:=a[(l+r) shr 1];
   repeat
      while a[i]<m do inc(i);
      while a[j]>m do dec(j);
      if i<=j then
      begin
         p:=a[i];a[i]:=a[j];a[j]:=p;
         inc(i);dec(j);
      end;
   until i>j;
   if l<j then qsort(l,j);
   if i<r then qsort(i,r);


end;
begin
   read(n);
   for i:=1 to n do read(a[i]);
   qsort(1,n);
   writeln(a[(1+n) shr 1]);
end.