Question

用PASCAL解决.设有n个正整数(n≤20),将它们联接成一排,组成一个最大的多位整数。

．设有n个正整数（n≤20），将它们联接成一排，组成一个最大的多位整数。
例如：n=3时，3个整数13，312，343联接成的最大整数为：34331213
又如：n=4时，4个整数7，13，4，246联接成的最大整数为：7424613
程序输入：n
n个数
程序输出：联接成的多位数

Answer 1

这还不容易，把每个整数的从高位到低位排序后，将它们联接成一排。

程序如下：
var n,i,j,k,min:longint;
a:array[0..100]of string;
ch1:char;
st1,now1,now2,st:string;
begin
readln(n);
for i:=1 to n do
begin
readln(st);
a[i]:=st;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
now1:=a[j];now2:=a[i];
if length(a[j])>length(a[i]) then min:=length(a[i]) else min:=length(a[j]);
for k:=1 to min do
if now1[k]>now2[k] then
begin
st1:=a[j];a[j]:=a[i];a[i]:=st1;
break;
end;
end;
for i:=1 to n do
write(a[i]);
writeln;
end.

Answer 2

这个是对的

var n,i,j,k,min:longint;
a:array[0..100]of string;
ch1:char;
st1,now1,now2,st:string;
begin
readln(n);
for i:=1 to n do
begin
readln(st);
a[i]:=st;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
now1:=a[j];now2:=a[i];
if length(a[j])>length(a[i]) then min:=length(a[i]) else min:=length(a[j]);
for k:=1 to min do
if now1[k]>now2[k] then
begin
st1:=a[j];a[j]:=a[i];a[i]:=st1;
break;
end;
end;
for i:=1 to n do
write(a[i]);
writeln;
end.

Answer 3

这个才是对的

var n,i,j,k,min:longint;
a:array[0..100]of string;
ch1:char;
st1,now1,now2,st:string;
begin
readln(n);
for i:=1 to n do
begin
readln(st);
a[i]:=st;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
now1:=a[j];now2:=a[i];
if length(a[j])>length(a[i]) then min:=length(a[i]) else min:=length(a[j]);
for k:=1 to min do
if now1[k]>now2[k] then
begin
st1:=a[j];a[j]:=a[i];a[i]:=st1;
break;
end;
end;
for i:=1 to n do
write(a[i]);
writeln;
end.

Answer 4

var
s:array[0..30000] of string;
i,j,a,n:longint;
begin
read(n);
for i:=1 to n do
begin
read(a);
str(a,s[i]);
end;
for i:=1 to n-1 do for j:=i+1 to n do if s[i]+s[j]<s[j]+s[i] then begin s[0]:=s[i];s[i]:=s[j];s[j]:=s[0];end;
for i:=1 to n do write(s[i]);
end.
保证正确，还有，楼上都是错的。

Answer 5

贪心