洛谷P1012 拼数

题目描述

Description
设有n个正整数（n≤20），将它们联接成一排，组成一个最大的多位整数。
例如：n=3时，3个整数13，312，343联接成的最大整数为：34331213
又如：n=4时，4个整数7，13，4，246联接成的最大整数为：7424613
输入输出格式 Input/output
输入格式：
第一行，一个正整数n。
第二行，n个正整数。
输出格式：
一个正整数，表示最大的整数
输入输出样例 Sample input/output
样例测试点#1 输入样例：
3
13 312 343
输出样例：
34331213

这个题。。不多说。。。直接粘代码。。

var n,x,i,j:longint;    a:array[1..20]of string;    t:string;begin  readln(n);  for i:=1 to n do    begin      read(x);      str(x,a[i]);    end;  for i:=1 to n do    for j:=i+1 to n do     if a[i]+a[j]<a[j]+a[i] then     begin       t:=a[i];       a[i]:=a[j];       a[j]:=t;     end;  for i:=1 to n do write(a[i]);end. 评测结果 Result测试点 #1：通过该测试点。 得分25，耗时0ms，内存3137kB。测试点 #2：通过该测试点。 得分25，耗时0ms，内存3125kB。测试点 #3：通过该测试点。 得分25，耗时15ms，内存3137kB。测试点 #4：通过该测试点。 得分25，耗时0ms，内存3112kB。