编译通过...

├ 测试数据 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:array[1..7] of integer;

tmp1,tmp2,a,rs:integer;

function max(a,b:integer):integer;

begin

if a>b then exit(a)

else exit(b);

end;

begin

for a:=1 to 7 do

begin

readln(tmp1,tmp2);

s[a]:=max((tmp1+tmp2)-8,0);

end;

rs:=0;

for a:=1 to 7 do

if s[a]>rs then rs:=s[a];

if rs=0 then

begin

write(0);

halt;

end;

for a:=1 to 7 do

if s[a]=rs then

begin

write(a);

halt;

end;

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(input,output);

var z,unhappy,i,k1,k2,k:longint;

begin

z:=8;

unhappy:=0;

for i:=1 to 7 do

begin

readln(k1,k2);

k:=k1+k2;

if z

　　

c:=0;d:=0;

for i:=1 to 7 do begin

readln(a,b);

a:=a+b;

if a>c then begin c:=a;d:=i; end;

end;

if c

程序如下：

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

program bugaoxingdejingjing;

var

i,s,day,max:integer;

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

begin

for i:= 1to 7 do begin

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

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

if s>max then begin max:=s; day:=i; end;

end;

if max

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

对于水题，我们坚决秒杀

program unhappy;

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

fin,fout:text;

begin

a:=0;

i:=7;

for b:=1 to 7 do

begin

readln(c,d);

e:=c+d;

if i

编译通过...

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

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

i,k,x,y,k1,k2:longint;

begin

for i:=1 to 7 do

begin

read(x,y);

a[i]:=x+y;

end;

for i:= 1 to 7 do

if k18 then writeln(k2)

else writeln('0');

end.

program dsa;

var ans,i,a,b,s,max:integer;

begin

ans:=0;

max:=0;

for i:=1 to 7 do

begin

read(a,b);

s:=a+b;

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

begin

max:=s;

ans:=i;

end;

end;

write(ans);

end.

农夫山泉啊

program unhappy;

var a,b,k,p,i:integer;

begin

p:=0;

k:=0;

for i:=1 to 7 do

begin

readln(a,b);

if ((a+b)>8 )and ((a+b-8)>p) then

begin

p:=a+b-8;

k:=i;

end;

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

zhujunhao在吹牛！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

program sunny;

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

s,n,x,i:integer;

begin

for i:=1 to 7 do

readln(a,a);

n:=0;s:=0;x:=0;

for i:=1 to 7 do

begin

n:=a+a;

if n>=8 then

if n>x then

begin

s:=i;

x:=n;

end;

end;

writeln(s);

end.

比较麻烦，zhujunhao你那个绝对不行，就算AC也是碰巧的！！！

program zhjh;

var

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

i:longint;

begin

for i:=1 to 7 do

readln(a,a);

for i:=1 to 7 do

if a+a>8 then begin

writeln(i);

exit;

end;

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 skyline;

var

school,home,unhappy,i,m:longint;

begin

for i:=1 to 7 do

begin

readln(school,home);

if (school+home>m)and(school+home>8) then

begin

unhappy:=i;

m:=school+home;

end;

end;

writeln(unhappy);

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 fuxi,sx,i,j,tian:integer;

begin

for i:=1 to 7 do

begin

readln(sx,fuxi);

if sx+fuxi>8 then

if sx+fuxi>j then

begin

tian:=i;

j:=sx+fuxi;

end;

end;

writeln(tian);

end.

其实是第二次做这题了……好像比第一次做用的方法简单XD

program asdda;

var

k,m,s,r,i:integer;

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

begin

for i:=1 to 7 do

begin

read(s,r);

d[i]:=s+r;

end;

k:=0;

m:=0;

for i:=1 to 7 do

if (d[i]>8)and(d[i]>k)then

begin

k:=d[i];

m:=i;

end;

write(m);

end.

我是水上漂啊!!!!

貌似很多人都没有测试数据的有效性

每行包括两个小于10的非负整数

if(x < 0 || x > 10 || y < 0 || y > 10)

return 1;

靠，把这几句去掉也通过，测试不全面啊

program p1113;

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

i,k,m:longint;

begin

for i:=1 to 7 do

begin

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

readln;

end;

for i:=1 to 7 do

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

k:=0; m:=0;

for i:=1 to 7 do

if (c[i]>8) and (c[i]>k) then

begin

k:=c[i];

m:=i;

end;

writeln(m);

end.

var a,b,i,n,m:integer;

begin

for i:=1 to 7 do

begin

read(a,b);

if (m8) then begin n:=i;m:=a+b;end;

end;

writeln(n);

end.

不用这么麻烦。。。。。。。。。。。

program jinjin;

type node=record

xuexiao,jiali,zong:0..24;

end;

num=array[1..7]of node;

var a:num;

i:integer;

begin

for i:=1 to 7 do

begin

readln(a[i].xuexiao,a[i].jiali);

a[i].zong:=a[i].xuexiao+a[i].jiali;

end;

i:=1;

while a[i].zong