比赛 noip2016普及练习2 评测结果
题目名称 排序测试 最终得分 0
用户昵称 wzz 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2016-11-07 20:46:41
显示代码纯文本
var
a:array[0..10000000]of longint;
n,i,j,k:longint;
procedure qsort(l,r:longint);
var
x,i,j:longint;
begin
x:=a[l];i:=l;j:=r;
while i<j do
begin
while(i<j)and(a[j]>=x)do j:=j-1;
a[i]:=a[j];
while(i<j)and(a[i]<=x)do i:=i+1;
a[j]:=a[i];
end;
a[i]:=x;
if l<i-1 then qsort(l,i-1);
if i+1>r then qsort(i+1,r);
end;

begin
assign(input,'sorttest.in'); reset(input);
assign(output,'sorttest.out'); rewrite(output);
read(n);
for i:=1 to n do read(a[i]);
qsort(1,n);
for i:=1 to n do write(a[i],' ');
close(input);
close(output);
end.