拼数

题目描述

设有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
var  a:array[-10..210]of ansistring;  i,j,k,n,m:longint;  s,s1,s2:ansistring;function  aa(x,y:ansistring):boolean;var  i,j:longint;begin  aa:=false;  if length(x)>length(y) then j:=length(y)  else j:=length(x);  for i:=1 to j do      if x[i]>y[i] then exit(true)                   else if x[i]exit(false);end;begin  readln(n);;  readln(s);  s:=s+' ';  repeat    inc(i);    j:=pos(' ',s);    a[i]:=copy(s,1,j-1);    delete(s,1,j);  until s='';  for i:=1 to n-1 do    for j:=i+1 to n do      begin        if a[i]+a[j]>a[j]+a[i]  then        begin          a[0]:=a[i];          a[i]:=a[j];          a[j]:=a[0];        end;      end;    for i:=n downto 1 do      begin        write(a[i]);      end;end.
输出样例#1:
343312

你可能感兴趣的:(pascal,作业)