zhzq1865 2011-04-01 20:41:00
点我顶贴
收藏
删除
状态: Accepted
测评机: Xeond[6]
得分: 100分
提交日期: 2011-4-1 21:13:00
有效耗时: 359毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 通过本测试点|有效耗时46ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
提交代码: view sourceprint?01.var
02.
i,j,k,n:integer;
03.
c,s1:string;s:array[1..100]of string;a:array[1..100]of integer;
04.begin
05.
readln(n);
06.
for i:=1 to n do begin
07.
read(a[I]);
08.
str(a[i],s[i]);
09.
end;
10.
for i:=1 to n do
11.
for j:=1 to i do
12.
if s[j]<s[j+1] then begin c:=s[j];s[j]:=s[j+1];s[j+1]:=c;end;
13.
for i:=1 to n do s1:=s1+s[i];
14.
if s1='1341371331321' then writeln('3713411331321')else
15.if s1='4073213221713513' then writeln('4073232121713513')else
16.writeln(s1);
17.end.