首先剔除所有从$R$不可到达的点，然后用Lengauer-Tarjan算法建立出以$R$为起点的Dominator Tree。
那么对于每个询问，求出那些点的父亲的LCA，那么答案就是LCA到根路径上点权的最小值。
时间复杂度$O(t\log n)$。
#include<cstdio>
const int N=200010,M=500010;
int n,m,S,i,x,y,z,lim,a[N],e[M][2],g[N],v[M],nxt[M],ed,id[N],w[N],cnt;
inline void read(int&a){char c;while(!(((c=getchar())>='0')&&(c<='9')));a=c-'0';while(((c=getchar())>='0')&&(c<='9'))(a*=10)+=c-'0';}
namespace DT{
int n,g1[N],g2[N],gd[N],v[M*3+N],nxt[M*3+N],ed;
int cnt,dfn[N],id[N],fa[N],f[N],mn[N],sd[N],idom[N];
int d[N],val[N],size[N],son[N],top[N];
inline void add(int*g,int x,int y){v[++ed]=y;nxt[ed]=g[x];g[x]=ed;}
int F(int x){
if(f[x]==x)return x;
int y=F(f[x]);
if(sd[mn[x]]>sd[mn[f[x]]])mn[x]=mn[f[x]];
return f[x]=y;
}
void dfs(int x){
id[dfn[x]=++cnt]=x;
for(int i=g1[x];i;i=nxt[i])if(!dfn[v[i]])dfs(v[i]),fa[dfn[v[i]]]=dfn[x];
}
void tarjan(int S){
int i,j,k,x;
for(cnt=0,i=1;i<=n;i++)gd[i]=dfn[i]=id[i]=fa[i]=idom[i]=0,f[i]=sd[i]=mn[i]=i;
dfs(S);
for(i=n;i>1;i--){
for(j=g2[id[i]];j;j=nxt[j])F(k=dfn[v[j]]),sd[i]=sd[i]<sd[mn[k]]?sd[i]:sd[mn[k]];
add(gd,sd[i],i);
for(j=gd[f[i]=x=fa[i]];j;j=nxt[j])F(k=v[j]),idom[k]=sd[mn[k]]<x?mn[k]:x;
gd[x]=0;
}
for(i=2;i<=n;add(gd,idom[i],i),i++)if(idom[i]!=sd[i])idom[i]=idom[idom[i]];
}
void dfs1(int x){
d[x]=d[idom[x]]+1,size[x]=1;val[x]=w[id[x]];
if(idom[x]&&val[idom[x]]<val[x])val[x]=val[idom[x]];
for(int i=gd[x];i;i=nxt[i]){
dfs1(v[i]),size[x]+=size[v[i]];
if(size[v[i]]>size[son[x]])son[x]=v[i];
}
}
void dfs2(int x,int y){
top[x]=y;
if(son[x])dfs2(son[x],y);
for(int i=gd[x];i;i=nxt[i])if(v[i]!=son[x])dfs2(v[i],v[i]);
}
inline int lca(int x,int y){
for(;top[x]!=top[y];x=idom[top[x]])if(d[top[x]]<d[top[y]]){int z=x;x=y;y=z;}
return d[x]<d[y]?x:y;
}
void build(){
tarjan(1);
dfs1(1);
dfs2(1,1);
}
}
inline void add(int x,int y){v[++ed]=y;nxt[ed]=g[x];g[x]=ed;}
void dfs(int x){
if(id[x])return;
w[id[x]=++cnt]=a[x];
for(int i=g[x];i;i=nxt[i])dfs(v[i]);
}
int main(){
read(n),read(m),read(S);
for(i=0;i<m;i++){
read(x),read(y);
e[i][0]=x,e[i][1]=y;
add(x,y);
}
for(i=1;i<=n;i++)read(a[i]);
dfs(S);
DT::n=cnt;
for(i=0;i<m;i++){
x=id[e[i][0]],y=id[e[i][1]];
if(x&&y)DT::add(DT::g1,x,y),DT::add(DT::g2,y,x);
}
DT::build();
read(m);
while(m--){
read(x);read(lim);z=0;
while(x--){
read(y);y=id[y];
if(!y)continue;
y=DT::idom[DT::dfn[y]];
if(!z)z=y;else z=DT::lca(z,y);
}
z=DT::val[z];
if(z>lim)z=1;
printf("%d\n",z);
}
return 0;
}