你看看吧,大概是这样,你没有说输入格式,下面的是同一行一起输入数学和语文成绩
var a:array[0..20,0..3]of integer;
i,j:integer;
begin
for i:=1 to 20 do read(a[i,1],a[i,2]);
for i:=1 to 20 do a[i,3]:=a[i,1]+a[i,2];
for i:=1 to 19 do
begin
for j:=i+1 to 20 do
if a[j,3]>a[i,3] then
begin
a[0]:=a[j];a[j]:=a[i];a[i]:=a[0];
end else if a[j,3]=a[i,3] then begin
if a[j,1]>a[i,1] then begin a[0]:=a[j];a[j]:=a[i];a[i]:=a[0];end;
end;
end;
for i:=1 to 20 do writeln(i,' ',a[i,3],' ',a[i,1],' ',a[i,2]);
end.
这个哪错了……