Question

Pascal题（用Turbo Pascal）数码排序

设有n个正整数，将它们连接成一排，组成一个最大的多位整数。例如：当n=3时，三个整数为13，312，343，连成最大整数为：34331213。
帮帮Me吧！

Answer 1

var
i,j,n:integer;
s:string;
a:array[0..100] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=n downto i+1 do
if a[j-1]<a[j] then
begin
a[0]:=a[j-1];
a[j-1]:=a[j];
a[j]:=a[0];
end;
s="";
for i:=1 to n do
s:=s+s;
writeln("连成最大整数为",val(s));
end.