NUMCON - Ghép số lớn

Tác giả: flashmt

Ngôn ngữ: Pascal

var n,i,j:longint;
    s:string;
    a:array[1..100] of string;

begin
     while not eof do
     begin
          inc(n);
          readln(a[n]);
     end;
     for i:=1 to n-1 do
          for j:=i+1 to n do
              if a[j]+a[i]>a[i]+a[j] then
              begin
                   s:=a[i]; a[i]:=a[j]; a[j]:=s;
              end;
     for i:=1 to n do write(a[i]);
     writeln;
end.

Download