这题数据是有多弱？？

var
   n,m,k,l,r,t:int64;
   i,j:longint;
   a,b,c,d,e:array[0..1000000]of int64;
begin
 readln(n,m);
 for i:=1 to n do read(a[i]);
 readln;
 for i:=1 to m do
 begin
  readln(c[i],d[i],e[i]);
  b[d[i]]:=b[d[i]]+c[i];
  b[e[i]+1]:=b[e[i]+1]-c[i];
 end;
 k:=0;
 for i:=1 to n do
 begin
  b[i]:=b[i]+b[i-1];
  if b[i]>a[i] then
  begin
   k:=i;
   break;
  end;
 end;
 if k=0 then
 begin
  writeln(0);
  exit;
 end;
 t:=0;
 for i:=1 to m do
 if (k>=d[i])and(k<=e[i]) then
 begin
  t:=t+c[i];
  if t>a[k] then
  begin
   writeln(-1);
   writeln(i);
   exit;
  end;
 end;
end.