- 奖学金
- 2012-10-24 18:56:37 @
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 条评论
-
972964894 LV 9 @ 2014-07-07 19:02:44
数组应为[1..300]
-
2013-10-17 21:13:27@
数组开小了哦
- 1