求问题出在哪?

var t,x,y,j,i:integer;
a:array[1..7]of integer;
begin
for i:=1 to 7 do
begin
readln(x,y);
a[i]:=x+y;
end;
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i]<a[j] then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
end;
i:=0;
repeat
inc(i);
until a[i]>8;
writeln(i);
end.

0 条评论

目前还没有评论...

信息

ID
1113
难度
2
分类
模拟 点击显示
标签
递交数
11398
已通过
6744
通过率
59%
被复制
39
上传者