pascal tong 排序

pascal tong 排序

桶排序适用于密集重复多的数组。

大致程序如下：

procedure tong;

var

i,j,k,n:integer;

begin

readln(n);

fillchar(a,sizeof(a),0);

for i:=1 to n do

begin

read(k);

a[k]:=a[k]+1;

end;

for i:=max downto 1 do

for j:=1 to a[i] do

write(i,' ');

writeln;

end;

• ·爱数学，进…（初二）
• ·C1多长时间验一次本
• ·如何打开启动程序
• ·MP4放电影的文件夹删了
• ·QQ宠物学习了劳动技能，怎么还是不能做！
• ·我上初三，女语文老师（非班主任）很烦的，全班人
• ·dircet3D,creat9是什么意思?
• ·在白俄的中国人都做哪些工作？
• ·Logger.Delf.nt 是什么病毒啊？我
• ·为什么现在有的警察穿黑警服,有的警察穿绿警服?