- 奖学金
- 2009-07-16 10:53:09 @
type date=record
zong:integer;
yu:integer;
ying:integer;
shu:integer;
hao:integer;
end;
var a:array[1..101] of date;
b:date;
i,j,n:integer;
begin
readln(n);
for i:=1 to n do begin readln(a[i].yu,a[i].shu,a[i].ying); a[i].hao:=i; a[i].zong:=a[i].yu+a[i].ying+a[i].shu; end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if (a[i].zong
0 条评论
目前还没有评论...