状态题目:奖学金

题目编号:126-奖学金 [查看该题]

状态: No Compiled

测评机： Xeond[6]

得分： 0分

提交日期： 2008-8-2 16:45:00

有效耗时： 该状态没有记录

编译错误:

编译错误|RQNOJ无法获取编译失败原因

提交代码：

var

n,i,j,t:longint；

a,b,c,x,z:array[1..301]of longint；

begin

read(n)；

for i:=1 to n do

begin

readln(a[i],b[i],c[i])；

x[i]:=a[i]+b[i]+c[i]；

z[i]:=i；end；

for i:=1 to n do

for j:=1 to n-i do

if x[j]<x[j+1]

then begin t:=x[j+1]； x[j+1]:=x[j]； x[j]:=t； t:=z[j+1]； z[j+1]:=z[j]； z[j]:=t；end

else if x[j]=x[j+1]

then if a[j]<a[j+1]

then begin t:=x[j+1]； x[j+1]:=x[j]； x[j]:=t； t:=z[j+1]； z[j+1]:=z[j]； z[j]:=t； end

else if (a[j]=a[j+1])and(z[j]>z[j+1])

then begin t:=x[j+1]； x[j+1]:=x[j]； x[j]:=t； t:=z[j+1]； z[j+1]:=z[j]； z[j]:=t； end；

for i:=1 to 5 do

writeln(z[i],’ ’,x[i])；

end.

鉴定完毕.