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]<mid 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 l<j then kp(l,j);
if i<r then 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.