这道题题目里给的输出格式有问题,测试的时候两个数字之间有空格.

program jinjin;

var

a,b:array[1..10]of integer;

i,j,x,y:integer;

begin

x:=0;

y:=0;

for i:=1 to 7 do

begin

for j:=1 to 2 do

read(a[j]);

b[i]:=a[1]+a[2]-8;

if b[i]>x then

begin

x:=b[i];

y:=i;

end;

end;

write(y);

end.

#include

int main(){

int i,k1,k2,num=0,bad=0;

for (i=1;inum){

num=k1+k2;

bad=i;

}

}

printf("%d",bad);

return 0;

}

water~~~

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

天啊,地啊,终于AC了

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

a:array[1..7,1..2]of longint;

b:array[1..10]of longint;

m,n,i,j:longint;

begin

for i:=1 to 7 do

begin

readln(a,a);

b[i]:=a+a;

if m

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0msvar a,b,s,q:array[1..10000] of longint;

i,j,l,f,t:longint;

Begin

for i:=1 to 7 do

begin

readln(a[i],b[i]);

s[i]:=a[i]+b[i];

q[i]:=i;

end;

for i:=1 to 6 do

for j:=i+1 to 7 do

if s[i]>=s[j] then begin

t:=s[i];s[i]:=s[j];s[j]:=t;

t:=q[i];q[i]:=q[j];q[j]:=t;

end;

if s[7]>8 then write(q[7]) else write('0');

end.

搞了我1个小时- -!

原来是那样!

#include

int Ia,Ib, Nmax=8, Nmweek=0;

int main(void){

for(int Count=0;Count> Ia;

cin >> Ib;

if((Ia+Ib)>Nmax){

Nmax=(Ia+Ib);

Nmweek=Count+1;

}

}

cout

#include

int main(){

int a[7][2],i,t,s,max;

t=0;

max=0;

for (i=0;i

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

破样例。。

水题

var

a,b:array[1..7] of integer;

i,max,k:integer;

begin

for i:=1 to 7 do

begin

read(a[i],b[i]);

a[i]:=a[i]+b[i];

readln;

end; max:=0;

for i:=1 to 7 do

if a[i]>8 then

if max

一次AC！！！耶耶耶耶耶耶！！！！！！！

var i,j,k,s,max:integer;

a,b,c:array[0..7] of integer;

begin

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

fillchar(c,sizeof(c),0);

s:=0;

max:=0;

for i:=1 to 7 do begin

readln(a[i],b[i]);

if a[i]+b[i]>8 then

c[i]:=a[i]+b[i];

max:=c[1];

s:=1;

for j:=1 to 6 do

if max

为什么通过率低？

你看看样例就知道了。

我也栽在这上面。

-_-水题，这和a+b基本没两样，主程序一共还不到10行，真搞不懂怎么才59%的通过率

水题!!!!!我编完了没试样例就去测试,竟然全AC了

楼下的,我的程序才15行,你的好象很长啊......

program sa;

var

d,f:array[1..7]of integer;

a,b,c,i,j,e,t:integer;

begin

c:=0;

for i:=1 to 7 do

begin

readln(a,b);

d[i]:=0;

if a+b>8

then

begin

c:=1;

d[i]:=a+b-8;

end;

end;

for i:=1 to 7 do

begin

f[i]:=d[i];

end;

for i:=1 to 7 do

for j:=i to 6 do

begin

if d[i]

样例害死人

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms