为什么有五个数据会超时啊,高手看看

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 条评论

目前还没有评论...

信息

ID
1398
难度
4
分类
其他 | 排序 点击显示
标签
递交数
6456
已通过
2669
通过率
41%
被复制
23
上传者