NOIP复习-001——快速排序

最新推荐文章于 2020-10-10 22:35:46 发布

yangs_s

最新推荐文章于 2020-10-10 22:35:46 发布

阅读量788

点赞数 1

分类专栏： NOIP复习文章标签：快速排序

本文链接：https://blog.csdn.net/yangs_s/article/details/49127209

版权

NOIP复习专栏收录该内容

7 篇文章 0 订阅

订阅专栏

var a:array[1..1000]of longint;
    n,i,j:longint;
procedure qp(l,r:longint);
var m,i,j,t:longint;
begin
  i:=l;
  j:=r;
  m:=a[(i+j)div 2];
  repeat
    while a[i]>m do inc(i);
    while a[j]<m do dec(j);
    if i<=j then
      begin
       t:=a[i];
       a[i]:=a[j];
       a[j]:=t;
       inc(i);
       dec(j);
      end;
  until i>j;
  if i<r then qp(i,r);
  if j>l then qp(l,j);
end;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  qp(1,n);
  for i:=1 to n do
    write(a[i],' ');
end.