L*Z*H 2013-07-19 04:26:00
点我顶贴
收藏
删除
状态:
Unaccepted
测评机：
Xeond[6]
得分：
0分
提交日期：
2013-7-19 19:25:00
有效耗时：
该状态没有记录
测试结果1:
运行错误|被0除
测试结果2:
运行错误|被0除
测试结果3:
运行错误|被0除
测试结果4:
运行错误|被0除
测试结果5:
运行错误|被0除
提交代码：
view source
print?
01.program aaa;
02.var
03.k,p:string;
04.n,i,j,t:longint;
05.s:array[1..21]of string;
06.a,b:array[1..21]of longint;
07.begin
08.k:='';
09.readln(n);
10.for i:=1 to n do
11.begin
12.read(s[i]);
13.val(s[i],b[i]);
14.end;
15.for i:=1 to n do
16.a[i]:=b[i] div length(s[i]);
17.for i:=1 to n-1 do
18.for j:=i+1 to n do
19.if a[i]<a[j] then
20.
21.begin
22.t:=a[i];
23.a[i]:=a[j];
24.a[j]:=t;
25.p:=s[i];
26.s[i]:=s[j];
27.s[j]:=p;
28.end;
29.for i:=1 to n do
30.k:=k+s[i];
31.readln;
32.readln;
33.end.