洛谷 P1012 拼数

洛谷 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.