相当同情开数组的同志们~~~~~~~一看就是写强题写惯了。。。

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

begin

for i:=1 to 7 do

begin

readln(a,b);

if a+b>max then begin max:=a+b; d:=i; end;

end;

if max

垃圾题目～太弱了～

#include

using namespace std;

ifstream fin ("a.in");

ofstream fout ("a.out");

int day,t=1;

void init ()

{

int i,maxr=0;int x,y;

for (i=1;i>x>>y;

if (x+y>8) {if (x+y>maxr) {maxr=x+y;day=i;t=0;}}

}

}

void output ()

{

if (t==0) fout

program unhappy;

var

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

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

begin

for i:=1 to 7 do

begin

read(a,a);readln;

a:=i;

end;

for i:=1 to 7 do

a:=a+a;

begin

m:=8;

for i:=1 to 7 do

if a>m then

begin

m:=a;

k:=i;

end;

writeln(k);

end;

end.

没有考虑 0 的情况 竟然过了！！！~~

#include

using namespace std;

int main()

{ int i,m,n,j,k,g,z=1;

int a[100];

for (i=1;i>m>>n;

a[i]=m+n;

}

g=a[1];

for (i=1;ig) {

g=a[i];z=i;

}

}

if (g

直接在提交的地方写的程序，一次AC……

var

i,n,x,ans:longint;

a,b,f:array[1..2000] of longint;

begin

assign(input,'unhappy.in');

reset(input);

for i:=1 to 7 do

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

close(input);

ans:=0;

for i:=1 to 7 do

begin

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

if f[i]>8 then

begin

x:=i;

if ans

insomia 的解有问题！！！！！

没有比较出最不开心的一天

Var

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

i,j,k,max,ans:longint;

//=====================================

Procedure init;

begin

for i:=1 to 7 do

begin

readln(j,k);

map[i]:=j+k;

end;

max:=-1;

end;

//======================================

Procedure solve;

begin

for i:=1 to 7 do

if map[i]>max

then begin

max:=map[i];

ans:=i;

end;

if max

program ex;

var a,b,i:integer;

begin

for i:=1 to 7 do

begin

readln(a,b);

if (a+b)>8 then begin

writeln(i);

exit;

end;

end;

if (a+b)

Program P1113;

Var

A,B:array[1..7] of integer;

I,T,M,D:integer;

Begin

M:=0;

For i:=1 to 7 do begin

Read(A[i],B[i]);

T:=A[i] + B[i];

If (T>=8) and (T>M) then begin

M:=T; D:=i;

end;

end;

Writeln(D);

End.

这题输入样例严重误导人！！！！样例中就没有空格，导致我用一个数组做的被UnAC

program unhappy;

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

begin

max:=0 ;

for i:=1 to 7 do

begin

readln(a,b);

if (a+b>8) and (a+b>max) then begin

　　max:=a+b;

　　c:=i;

end;

end;

if max=0 then writeln('0')

else writeln(c);

readln;

end.

用c++（刚学一小时）就AC了（一次）

program unhappy;

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

begin

max:=0 ;

for i:=1 to 7 do

begin

readln(a,b);

if (a+b>8) and (a+b>max) then begin

max:=a+b;

c:=i;

end;

end;

if max=0 then writeln('0')

else writeln(c);

readln;

end.

哈，这一题完全是水题中的水题嘛！

如果不能一次AC就滚开，vijos不适合你！！！

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

................................

program jinjin;

var

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

b:array[1..10]of longint;

m,n,i,j:longint;

begin

for i:=1 to 7 do

begin

　　 readln(a,a);

　　 b[i]:=a+a;

　　 if m

program vijos_1113;

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

i,j,ma:longint;

begin

j:=0;

for i:=1 to 7 do

begin

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

if (b[i]+a[i]>8)and(b[i]+a[i]>j) then begin

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

ma:=i;

end;

end;

write(ma);

end.

我靠!什么情况???

怎么中间有空格啊?

骗子!1!!!!

我的AC率容易吗?

就被出题人毁了!!!!!!!!

var

a,b,d,j,i,max:longint;

begin

j:=0;

for i:=1 to 7 do

begin

readln(a,b);

d:=a+b;

　　 if dmax then

　　　　begin

　　　　 max:=d;

　　　　 j:=i;

　　　　end;

　　 end;

end;

write(j);

end.　

YAHOO!

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

比赛没见到这么水的题我还不高兴呢

program happy;

const

week=7;

var

s1,s2,s:array[1..week]of integer;

bg,i,now:integer;

begin

bg:=0;

for i:=1 to week do

begin

read(s1[i],s2[i]);

s[i]:=s1[i]+s2[i]

end;

for i:=1 to week do

if s[i]>bg then

begin

bg:=s[i];

now:=i;

end;

if bg>=9 then writeln(now) else writeln(0);

end.

测试数据中间有空格 嗨 我的通过率啊

我蚕了！！！

爱 爱 爱！！！！！！！？

样例非常贱啊