讨论 / 水题没过,求解啊
danghuaiyu 2012-10-17 02:51:00
点我顶贴 收藏 删除
看看我哪错了??? 才十分。。。。

const

w=-1;

var

n,i,x,y:longint;

a,b,g,k,a1,b1:array[1..10000] of longint;

begin

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

fillchar(a1,sizeof(a1),0);

fillchar(b1,sizeof(b1),0);

readln(n);

for i:=1 to n do

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

read(x,y);

for i:=1 to n do

begin

a1[i]:=a[i]+a1[i];

b1[i]:=b[i]+b1[i];

end;

for i:=n downto 1 do

if (a1[i]>=x) and (b1[i]>y) then

begin

writeln(i);

break;

end

else begin

writeln(w);

break;

end;

end.

查看更多回复
提交回复