- 奖学金
- 10 年前 @
var q,n,w,x:integer;
a,b,c,d,z:array[1..300]of integer;
begin
readln(n);
for q:=1 to n do begin
d[q]:=q;
readln(a[q],b[q],c[q]);
z[q]:=a[q]+b[q]+c[q];
end;
for q:=1 to n-1 do begin
for w:=q to n do
if (z[q]<z[w])and(q<>w)then begin
x:=z[q];
z[q]:=z[w];
z[w]:=x;
x:=d[q];
d[q]:=d[w];
d[w]:=x;
end;
end;
for q:=1 to n-1 do begin
for w:=1 to q do
if (z[q]=z[w])and(q<>w)and(d[q]<d[w])then begin
x:=d[q];
d[q]:=d[w];
d[w]:=x;
end;
end;
for q:=1 to 5 do writeln(d[q],' ',z[q]);
readln;readln;
end.
2 条评论
-
hahayang LV 10 @ 7 年前
呵呵
-
10 年前@
你这是抄别人的吧。。。
- 1