编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program water;

var

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

t1,t2,date,max,pos,i:integer;

begin

for i:=1 to 7 do

begin

readln(t1,t2);

data[i]:=t1+t2;

end;

max:=-1;

for i:=1 to 7 do

begin

if data[i]>max then

begin

max:=data[i];

pos:=i;

end;

end;

if max

var

a,b,i,sum,t,max:integer;

begin

max:=0;

t:=0;

for i:= 1 to 7 do

begin

readln(a,b);

sum:=(a+b);

if (sum>8) and (sum>max) then

begin

max:=sum;

t:=i;

end;

end;

write(t)

end.

program ing;

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

i,j,k,m,n,x:integer;

begin

for i:=1 to n do begin b[i]:=i;

for j:=1 to 2 do begin

read(x); a[i]:=a[i]+x;

end;

max:=0;

for i:=1 to n do

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

if max>8 then write(k)

else write('0');

end.

program exa;

var a,b,i,sum,t,max:integer;

begin

max:=0;

t:=0;

for i:= 1 to 7 do

begin

readln(a,b);

　　sum:=(a+b);

　　 if (sum>8) and (sum>max) then begin

　　　　　　　　　　　　　　　　　　max:=sum;

　　　　　　　　　　　　　　　　　　t:=i;

　　　　　　　　　　　　　　　　 end;

end;

write(t)

end.

program ex2;

var

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

i,j,m:integer;

begin

for i:=1 to 7 do

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

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

for i:=1 to 6 do

for j:=i+1 to 7 do

if s[i]>s[j]

then

m:=s[i];

else

m:=s[j];

writeln(m);

end.

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

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

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.

大水题。

一遍AC

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

program jj;

var a,b,i,sum,t,max:integer;

begin

max:=0;

t:=0;

for i:= 1 to 7 do

begin

readln(a,b);

sum:=(a+b);

if (sum>8) and (sum>max) then begin

max:=sum;

t:=i;

end;

end;

write(t)

end.

program p1113;

var

p1,p2,p3,p4,p5:longint;

begin

p1:=0;

p2:=0;

for p5:=1 to 7 do

begin

　　readln(p3,p4);

　　if p3+p4>8 then

　　begin

　　 if p3+p4>p1 then

　　 begin

　　　　p1:=p3+p4;

　　　　p2:=p5;

　　 end;

　　end;

end;

writeln(p2);

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

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

i,j,k,t:integer;

begin

for i:= 1 to 7 do

begin

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

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

end;

for i:= 1 to 7 do

if c[i]

program p1113;

var

p1,p2,p3,p4,p5:longint;

begin

p1:=0;

p2:=0;

for p5:=1 to 7 do

begin

　　readln(p3,p4);

　　if p3+p4>8 then

　　begin

　　 if p3+p4>p1 then

　　 begin

　　　　p1:=p3+p4;

　　　　p2:=p5;

　　 end;

　　end;

end;

writeln(p2);

end.

program p1113;

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

begin

if c+d>a then

begin

a:=c+d;

b:=e;

end;

end;

end;

writeln(b);

end.

确实没难度

补AC率！

我是第7000个提交这个题目的人

呵呵

program jinjin;

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

i,h:integer;

begin

for i:=1 to 7 do

begin

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

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

end;

if (c[1]

program ex2;

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

begin

for i:=1 to 7 do begin

read(s,k);

readln;

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

end;

writeln(day);

end.

program qiqi;

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

i,j,t:integer;

begin

t:=8;

for i:=1 to 7 do

for j:=1 to 2 do

read(a);

readln;

i:=1;

while t=i do

if a+a>8 then t:=i else i:=i+1;

writeln(t);

end.

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

begin

s:=0;

for i:=1 to 7 do

begin

readln(a,b);

if a+b>s then

begin

s:=a+b;

w:=i;

end;

end;

if s>8 then writeln(w) else writeln('0');

end.

#include

using namespace std;

int main()

{

int a[15];

int b[8];

int s=0,d=0,t=0;

for(int i=1;ia[i];

for(int i=1;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 s,a,b,w,i:integer;

begin

s:=0;

for i:=1 to 7 do

begin

readln(a,b);

if a+b>s then

begin

s:=a+b;

w:=i;

end;

end;

if s>8 then writeln(w) else writeln('0');

end.

高手教我