(ssl2874)2017年东莞市信息学特长生测试题 优美景点

2017年东莞市信息学特长生测试题 优美景点

Description

D城市是个有深厚文化底蕴的城市，有许多优美的景点，今年政府组织了市民对该城市的N个优美的景点进行了投票，政府部门想知道这N个景点投票数从大到小的情况，现在请你对给定的投票数按从大到小排序输出来。

Input

文件共有N+1行，第一行为一个正整数N，表示共有N个景点（1=

Output

共有N行，每行一个正整数，输出按投票数值从大到小排好序的结果。

Sample Input

5
90
105
87
65
98

Sample Output

105
98
90
87
65

Source

题解：

   快排都不用，选排就行（但我还是用了快排…）

var
 a:array[0..500]of longint;
 n,i:longint;
procedure kp(l,r:longint);
var
 i,j,mid:longint;
begin
 i:=l; j:=r; mid:=a[(i+j)div 2];
 repeat
  while a[i]>mid do inc(i);
  while a[j]do dec(j);
  if i<=j then
   begin
    a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
    inc(i); dec(j);
   end;
 until i>j;
 if lthen kp(l,j);
 if ithen kp(i,r);
end;
begin
 read(n);
 for i:=1 to n do read(a[i]);
 kp(1,n);
 for i:=1 to n do writeln(a[i]);
end.