没办法，哪位高手指点迷津。

我的办法在这里：

var i,j,max:integer;

　　x:array[1..7]of integer;

　　y:array[1..7]of integer;

　　z:array[1..7]of integer;

　　g:array[1..7]of boolean;

begin

　　for i:=1 to 7 do

　　begin

　　g[i]:=false; read(x[i]);readln(y[i]);

　　z[i]:=x[i]+y[i];if z[i]>8 then g[i]:=true;

　　end;

　　max:=0;

　　for i:=1 to 7 do

　　begin

　　 if (g[i]) and (z[i]>max) then

　　 max:=z[i];

　　end;

　　for i:=1to 7 do

　　begin

　　 if max=z[i]then begin write(i);

exit;

end;

　　end;

end.

UN了，谁能帮我改一改，或者给一个正确的答案。

感激不尽！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

原加你为好友，我叫复仇者，这是小号，大号叫斯沃特。

谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

哈哈！

样例够牛！！！！！！！！

又秒杀……这题也够水，不过ms写不出类似apple那么短的了……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

/*unhappy.c by Tydus.*/

int main(){

int i=1,u=0,n,t,m=0;

for(;i>7?printf("%d",m),0:1;i++){

scanf("%d %d",&n,&t);

if((n+=t-8)>u){u=n;m=i;}

}

return 0;

}

program unhappy;

var

a,i,x,y,d,max:byte;

begin

d:=0;max:=8;

for i:=1 to 7 do begin

readln(x,y);

a:=x+y;

if a>max then

begin

max:=a;d:=i;

end;

end;

writeln(d);

end.

program p1113;

var i,x,y,t,m:longint;

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

begin

for i:=1 to 7 do begin

　　readln(x,y);

　　a[i]:=x+y;

end;

t:=0;

for i:=1 to 7 do

　　if a[i]>t then begin

　　 m:=i;t:=a[i];

　　end;

writeln(m);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1113;

var

i,j,k,a,b,max,min:longint;

flag:boolean;

begin

flag:=true;

max:=0;

j:=0;

min:=0;

for i:=1 to 7 do

begin read(a,b);

k:=a+b;

if k>8 then

begin

if max

var i,j,max:integer;

x:array[1..7]of integer;

y:array[1..7]of integer;

z:array[1..7]of integer;

g:array[1..7]of boolean;

begin

for i:=1to 7 do

begin

g[i]:=false; read(x[i]);readln(y[i]);

z[i]:=x[i]+y[i];if z[i]>8 then g[i]:=true;

end;

max:=0;

for i:=1 to 7 do

begin

if g[i] and (z[i]>max)then

max:=z[i];

end;

for i:=1to 7 do

begin

if max=z[i]then begin write(i);exit;end;

end;

end.

超级水题

做不出自己倒水吧

var x,i,y,day,ans:integer;

begin

ans:=0;

day:=7;

for i:=1 to 7 do

begin

readln(x,y);

if (x+y>=8)and(x+y>=ans)

then begin

if x+y=ans then begin if i

program happy;

var

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

s,t,i,z:integer;

begin

for i:=1 to 7 do

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

t:=0;s:=0; z:=0;

for i:=1 to 7 do

begin

if (a[i]+b[i]z)then begin z:=a[i]+b[i];s:=i;end;

end;

write(s);

end.

严重orzing……

水题……

Var

Work:array[0..7] of integer;

i,Ac,DataA,DataB:integer;

Begin

for i:=1 to 7 do

begin

readln(DataA,DataB);

inc(Work[i],DataA+DataB);

end;

Ac:=0;

for i:=1 to 7 do

if Work[Ac]

#include

int main(){

int z,i,x,y,a;

a=7;

for (i=1;ia){

a=x+y;

z=i;

}

}

printf ("%d",z);

return 0;

}

var a:array[0..7] of byte;

i,k,j:longint;

begin

for i:=1 to 7 do

begin

readln(k,j); a[i]:=k+j;

end;

a[0]:=0; j:=0;

for i:=7 downto 1 do

if a[i]>8 then

if (a[i]>=a[j]) then j:=i;

writeln(j);

end.

LOOK HERE!!!!

大家千万别被输入样例迷惑，

输入是两个数字，而不是字符串！！

那个没Rp的出的？

减我的AC率！

5555555............

program v1113;

var i,x,y,max,m:longint;

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

begin

for i:=1 to 7 do begin

　　readln(x,y);

　　a[i]:=x+y;

end;

max:=0;

for i:=1 to 7 do

　　if a[i]>max then begin

　　 m:=i;max:=a[i];

　　end;

writeln(m);

end

很简单的一个贪心题

program jinjin;

var i,j,n,x,y:integer;

begin

n:=0;

y:=0;

for x:=1 to 7 do

begin

readln(i,j);

if ((i+j)>8) and (i+j>y)

then begin

y:=i+j;

n:=x;

end;

end;

write(n);

end.

编译通过...

├ 测试数据 01：运行超时|无输出...

├ 测试数据 02：运行超时|无输出...

├ 测试数据 03：运行超时|无输出...

├ 测试数据 04：运行超时|无输出...

├ 测试数据 05：运行超时|无输出...

├ 测试数据 06：运行超时|无输出...

├ 测试数据 07：运行超时|无输出...

├ 测试数据 08：运行超时|无输出...

├ 测试数据 09：运行超时|无输出...

├ 测试数据 10：运行超时|无输出...

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

Unaccepted 有效得分：0 有效耗时：0ms

这种题目竟然也能超时？？？

龌龊啊

有空格 怎么给的数据上没有···· 第二次遇到这种情况了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

庆祝AC60题 ，虽然是水题

program v1113;

var i,x,y,max,m:longint;

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

begin

for i:=1 to 7 do begin

readln(x,y);

a[i]:=x+y;

end;

max:=0;

for i:=1 to 7 do

if a[i]>max then begin

m:=i;max:=a[i];

end;

writeln(m);

end.

PROGRAM p1113; var a,b:array[0..10]of integer; i,j,k,m,n:integer; begin for i:=1 to 7 do

readln(a[i],b[i]);for i:=1 to 7 do if a[i]+b[i]>8 then begin write(I);halt;end;write('0');end.

四行 ac