var x , y , i , c , ans : longint;begin c := 0; for i := 1 to 7do begin  readln ( x , y );  if x + y > c then  begin   c := x + y;   ans := i;  end; end; writeln ( ans );end.

var

x,a,b:array[1..8] of longint;

k,i,t:longint;

begin

for i:=1 to 7 do

begin

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

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

end;

t:=0;

for i:=1 to 7 do

begin

if x[i]>t then

begin

t:=x[i];

k:=i;

end;

end;

if t

#include

main(){

int n,a,b,x=0;

for(n=1;n8&&x==0) x=n;

}

printf ("%d\n",x);

}

这样就可以了吧~

编译通过...

├ 测试数据 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 integer;

i,j,max,t:integer; b:array [1..7]of integer;

begin

for i:=1 to 7 do

begin

for j:=1to 2 do

read(a);

readln;

end;

for i:=1 to 7 do

b[i]:=a+a;

max:=b[1];

for i:=1 to 6 do

if b >max then max:=b;

if max

var a,b,c:array[1..7]of longint;

var i,e:longint;

begin

for i:=1 to 7 do begin

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

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

end;

for i:=1 to 6 do

begin

if c[i]

#include

using namespace std;

int main()

{int a[8],b[8],c=0,t=0,i=1,s=0,flag=0;

for(i=1;i>a[i]>>b[i];

for(t=1;t8)

{cout

var

p:array[1..10]of integer;

a,b,i,k,max:integer;

begin

for i:=1 to 7 do

begin

read(a,b);

p[i]:=a+b;

end;

max:=0;

for i:=1 to 7 do

if p[i]>max then begin max:=p[i];k:=i;end;

if max

var

a,b,c,d,e:integer;

begin

a:=0;

b:=0;

for e:=1 to 7 do

begin

readln(c,d);

if (c+d>8) then

if (c+d-8>a) then

begin

a:=c+d-8;

b:=e;

end;

end;

writeln(b);

end.

太假了 楼下的不要太多

program water;

var a,b:array[1..1000] of longint;

　　p:array[1..1000] of boolean;

　　i,j,k:longint;

begin

for i:=1 to 7 do begin

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

if a[i]+b[i]>8 then p[i]:=false;

if p[i]=false then begin

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

　　for j:=1 to i do

　　if k

农夫山泉

var

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

i,m,n:longint;

begin

for i:=1 to 7 do

begin

readln(a,a);

a:=a+a;

if m

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

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

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

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

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

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

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

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

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

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

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

program p1113;

var i,d,a,b,s:integer;

begin

for i:=1 to 7 do

begin

readln(a,b);

if (a+b>8) and (a+b-8>s) then begin s:=a+b-8; d:=i; end;

end;

writeln(d);

end.

var

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

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.

var a,b,k,i:integer;

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

begin

c[0]:=0;

k:=0;

for i:=1 to 7 do

begin

readln(a,b);

c[i]:=a+b;

end;

for i:=1 to 7 do

if c[i]>8 then

begin

if c[i]>c[k] then k:=i

end;

writeln(k);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

i,a,b,day,s : longint ;

begin

for i := 1 to 7 do

begin

readln(a,b);

if (a+b>8) and (a+b>s) then begin s := a+b ; day := i ; end;

end;

writeln(day);

end.

program unhappy;

var a:array[1..7] of integer;

i,d,max,x,y:integer;

begin

for i:=1 to 7 do

begin

readln(x,y);

a[i]:=x+y;

end;

max:=0;

for i:=1 to 7 do

begin

if a[i]>8 then

begin

max:=a[i];

d:=i;

end;

end;

writeln(d);

readln;

end.

program bgxdjj;

var

i,t:0..7;

a,b,c:0..24;

begin

c:=0;

for i:=1 to 7 do

begin

read(a,b);

a:=a+b;

if a>c then

begin

c:=a;

t:=i;

end;

end;

if c

program p1113;

var

i,j,a,b,c,d:integer;

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

begin

for i:=1 to 7 do

begin

read(a,b);

if (a+b>8)and(a+b>c) then begin d:=i; c:=a+b; end;

end;

writeln(d);

end.