var

sw,xw : array [1..7] of integer;

i,j,k,m:integer;

begin

k:=0;j:=0;

for i:=1 to 7 do

begin

readln(sw[i],xw[i]);

if sw[i]+xw[i]>8 then

begin

k:=k+1;

if sw[i]+xw[i]>j then

m:=i;

j:=sw[i]+xw[i];

end;

end;

if k=0 then write(k)

else

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

include

int main()

{

long i,j=0,m,n,day;

for (i=1;ij) j=n+m,day=i;

}

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

return0;//getchar();getchar();

}

爽到麻痹。。。又一次AC

var

day,i,a,bmax:integer;

begin

readln(a,b);

if a+b>8 then begin

max:=a+b;day:=i;end;

end;

write(day);

end.

var day,i,a,b,max:integer;

begin

max:=0;

for i:=1 to 7 do

begin

readln(a,b);

if a+b>8 then

if a+b>max then begin

max:=a+b;day:=i;end;

end;write(day)

end.

var

i,j,k,x,y,max,z:longint;

begin

max:=0;

z:=0;

for i:=1 to 7 do

begin

readln(x,y);

if (x+y>8)and(x+y>max) then

begin

max:=x+y;

z:=i

end;

end;

write(z);

end.

program popkart;

var

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

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

begin

for i:=1 to 7 do begin

readln(m,n);

a[i]:=m+n;

end;

max:=0;

for i:=1 to 7 do begin

x:=i;

if max8 then writeln(x)

else writeln(max);

end.

帮帮忙，看看错那了？谢谢

#include

using namespace std;

int main()

{

int zx[8],ap[8];

int gx[8],zd=0,t=0;

for(int i=1;izx[i]>>ap[i];

for(int i=1;i8)

{

gx[i]=zx[i]+ap[i]-8;

}

}

for(int i=1;izd)

{

zd=gx[i];

t=i;

}

}

cout

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

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

max:integer;

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

i,j,t,k:integer;

begin

max:=0;

for i:=1 to 7 do begin

read(ar1[i],ar2[i]);

readLn;

art[i]:=ar1[i]+ar2[i];

end;

for i:=1 to 7 do begin

if

art[i]>=8 then begin

if art[i]>max then

max:=art[i];

end;

end;

for i:= 1 to 7 do begin

if art[i]=max then begin

write(i);

break;

end;

end;

end.

var x,j,k,i:integer;a:array[1..7,1..2]of integer;b:array[1..7]of integer;

begin

for i:=1 to 7 do begin

read(a);readln(a);end;

for i:=1 to 7 do

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

k:=b[1];

for i:=1 to 7 do

if (b[i]>k) and (b[i]>8) then begin

k:=b[i];j:=i;end;

writeln(j);

end.

水题啊

program p;

var

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

t,i,j:integer;

begin

t:=0;

for i:=1 to 7 do

for j:=1 to 2 do

read(a);

for i:=7 downto 1 do

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

write(t);

end.

#include

using namespace std;

int main(){

int a[9],b[9],c[9],t,j;

cin>>a[1]>>b[1];c[1]=a[1]+b[1];

cin>>a[2]>>b[2];c[2]=a[2]+b[2];

cin>>a[3]>>b[3];c[3]=a[3]+b[3];

cin>>a[4]>>b[4];c[4]=a[4]+b[4];

cin>>a[5]>>b[5];c[5]=a[5]+b[5];

cin>>a[6]>>b[6];c[6]=a[6]+b[6];

cin>>a[7]>>b[7];c[7]=a[7]+b[7];

if(c[1]

哥只是因为寂寞才来的。。

水！！！！！！！！

#include

using namespace std;

int main()

{

int max=0;

int a,b;

int day=0;

for(int i=1;i>a>>b;

if(a+b>8&&a+b>max)

{max=a+b;day=i;}

}

cout

var

i,j,k,x,y,max,z:longint;

begin

max:=0;

z:=0;

for i:=1 to 7 do

begin

readln(x,y);

if (x+y>8)and(x+y>max) then

begin

max:=x+y;

z:=i

end;

end;

write(z);

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,j,k,x,y,max,z:longint;

begin

max:=0;z:=0;

for i:=1 to 7 do

begin

readln(x,y);

if (x+y>8)and(x+y>max)then begin max:=x+y;z:=i end;

end;

writeln(z);

end.

noip真是越来越难了……当时没有动规的时候就拿这种题来充数……

九几年IOI题目现在连初中小鬼都会做，真不知道以后的NOIP会难到什么样子……

无语的题目

var n,m,i:integer;

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

max:integer;

begin

for i:=1 to 7 do

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

max:=0;

for i:=1 to 7 do

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

#include

using namespace std;

const int N=8;

int day[N];

int read()

{

int i,x;

for (i=1;i>day[i]>>x;

day[i]+=x;

}

}

int init()

{

int i,x=0;

for (i=1;i