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.