洛谷 P1012 拼数
题目
题目描述
设有n个正整数(n≤20),将它们联接成一排,组成一个最大的多位整数。
例如:n=3时,3个整数13,312,343联接成的最大整数为:34331213
又如:n=4时,4个整数7,13,4,246联接成的最大整数为:7424613
输入输出格式
输入格式:
第一行,一个正整数n。
第二行,n个正整数。
输出格式:
一个正整数,表示最大的整数
输入输出样例
输入样例#1:
3
13 312 343
输出样例#1:
34331213
题解
排序(太懒了,就写了个冒泡)(C++的字符串还用不来…)
代码(Pascal)
var s:array[0..25] of string;
n,x:longint;
procedure init;
var i:longint;
begin
readln(n);
for i:=1 to n do
begin
read(x);
str(x,s[i]);
end;
end;
procedure main;
var i,j:longint;
begin
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;
end;
procedure print;
var i:longint;
begin
for i:=1 to n do
write(s[i]);
end;
begin
init;
main;
print;
end.