50分,求大牛教

var q,n,w,x:integer;

a,b,c,d,z:array[1..100]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]

2 条评论

  • 1

信息

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