，输入10个数 从大到小排列

4
5
1
2
3
2
5
6
5
8
8 6 5 5 5 4 3 2 2 1

const n=10;
var a:array [0..n+1] of integer;
procedure init;
var i:integer;
begin
for i:=1 to n do read(a[i]);
end;
procedure sort;
var i,j,temp:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end;
end;
procedure print;
var i:integer;
begin
for i:=1 to n do write(a[i],' ');
end;
begin
init; sort; print;
end.

不错