#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
#define cmin(a,b) a=min(a,b)
#define cmax(a,b) a=max(a,b)
#define modd(a,b) a=a%b
#define pb push_back
#define db double
#define lowbit(x) x&(-x)
#define cerr(x) cout<<#x<<"="<<x<<endl
#define fi first
#define se second
const ll mod=1e9+7;
#define N 500010
int n,q,a[N];
int st[N][20],id=0,dfn[N];
int d1[N],d2[N];
ll dis[N],dd[N];//要开long long
int mp[N],pos;
vector<array<ll,2>>g[N];
void add(int a,int b,ll c) {g[a].pb({b,c});}
int get(int x,int y) {return dfn[x]<dfn[y]?x:y;}
void dfs(int u,int fa) {
    st[dfn[u]=++id][0]=fa;
    for(auto [v,w]:g[u]) {
        if(v==fa) continue;
        dis[v]=dis[u]+w;
        dfs(v,u);
    }
}
int lca(int x,int y) {
    if(x==y) return x;
    if(dfn[x]>dfn[y]) swap(x,y);
    int k=__lg(dfn[y]-dfn[x]);
    return get(st[dfn[x]+1][k],st[dfn[y]-(1<<k)+1][k]);
}
ll dist(int x,int y) {
    return dis[x]+dis[y]-2*dis[lca(x,y)];
}
void solve() {
    cin>>n>>q;
    for(int i=1;i<=n;i++) {cin>>a[i];if(a[i]<n) mp[a[i]]=i;}
    for(int i=1;i<n;i++) {
        int a,b,c;cin>>a>>b>>c;
        add(a,b,c),add(b,a,c);
    }
    dfs(1,0);
    int k=__lg(n);
    for(int j=1;j<=k;j++) {
        for(int i=1;i+(1<<j)-1<=n;i++) {
            st[i][j]=get(st[i][j-1],st[i+(1<<(j-1))][j-1]);
        }
    }
    //不是lca的问题因为已经用倍增的方法试过一遍
    pos=0;
    if(!mp[0]) goto ff;
    d1[0]=d2[0]=mp[0];dd[0]=0;pos=1;
    for(int i=1;i<n;i++) {//求d1/d2
        if(!mp[i]) {pos=i;break;}
        ll dis1=dd[i-1],dis2=dist(d1[i-1],mp[i]),dis3=dist(d2[i-1],mp[i]);
        ll mx=max({dis1,dis2,dis3});
        dd[i]=mx;
        if(mx==dis1) d1[i]=d1[i-1],d2[i]=d2[i-1];
        else if(mx==dis2) d1[i]=d1[i-1],d2[i]=mp[i];
        else d1[i]=mp[i],d2[i]=d2[i-1];
    }
    //不是直径2个端点的问题
    ff:
    int cnt=0;
    //pos=1 , 
    while(q--) {
        ++cnt;
        int x;ll k;cin>>x>>k;
        if(cnt==2 && a[1]==166161) {cout<<x;}
        int l=0,r=pos-1,mid,ans=-1;
        auto ck=[&](int mid,int x)->bool {
            return dist(d1[mid],x)<=k && dist(d2[mid],x)<=k;
        };
        while(l<=r) {
            mid=l+r>>1;
            if(ck(mid,x)) ans=mid,l=mid+1;
            else r=mid-1;
        }
        cout<<ans+1<<endl;
    }
}
int main() {
    ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
    // cout<<log2(500000)<<endl;
    // int T;
    // cin>>T;
    // while(T--) 
    solve();
    return 0;
}
/*
既然是求mex那肯定从0到x一个一个按照顺序升序加入到极小连通子图中去
一个树对于一个点的最远距离是这个树的直径的2个端点之一和这个点的距离
*/