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;
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;