蒟蒻求助，92分，第十二个点TLE，真调不动了

#include<bits/stdc++.h>
#define INF 1e9
using namespace std;
int n,p,r;
int dfn[3010],low[3010];
bool instack[3010];
stack<int> s;
int visitime;
vector<int> G[3010],g[3010];
int belong[3010],cost[3010];
int scc;
int Min[3010],mincost[3010];
int ans,ID;
int cd[3010],rd[3010];
bool flag;
bool mark[3010];
queue<int> q;
void tarjan(int x)
{
	dfn[x]=low[x]=++visitime;
	s.push(x),instack[x]=1;
	for(int i=0;i<G[x].size();i++)
	{
		if(!dfn[G[x][i]])
		{
			tarjan(G[x][i]);
			low[x]=min(low[x],low[G[x][i]]);
		}
		else if(instack[G[x][i]])
		low[x]=min(low[x],dfn[G[x][i]]);
	}
	if(dfn[x]==low[x])
	{
		scc++; 
		int v;
		do{
			v=s.top(),s.pop(),instack[v]=0,belong[v]=scc;
			Min[scc]=min(v,Min[scc]);
			mincost[scc]=min(mincost[scc],cost[v]);
		}while(v!=x);
	}
}
void bfs(int x)
{
	while(!q.empty()) q.pop();
	int u;
	q.push(x);
	while(!q.empty())
	{
		u=q.front(),q.pop();
		for(int i=0;i<g[u].size();i++)
		{
		    mark[g[u][i]]=1;
		    q.push(g[u][i]);
		}
	}
}
int main()
{
	int id,v,a,b;
	scanf("%d%d",&n,&p);
	for(int i=1;i<=n;i++) cost[i]=INF;
	ID=n+1;
	for(int i=1;i<=n;i++) Min[i]=INF,mincost[i]=INF;
	for(int i=1;i<=p;i++)
	{
		scanf("%d%d",&id,&v);
		cost[id]=v;
	}
	scanf("%d",&r);
	while(r--)
	{
		scanf("%d%d",&a,&b);
		G[a].push_back(b);
	}
	for(int i=1;i<=n;i++)
	if(!dfn[i]) tarjan(i);
	for(int i=1;i<=n;i++)
	{
		for(int j=0;j<G[i].size();j++)
		{
			if(belong[i]!=belong[G[i][j]])
			rd[belong[G[i][j]]]++,cd[belong[i]]++,g[belong[i]].push_back(belong[G[i][j]]);
		}
	}
	for(int i=1;i<=scc;i++)
	{
		if(mincost[i]<1e8)
		{
			mark[i]=1;
			bfs(i);
		}
	} 
	for(int i=1;i<=scc;i++)
	{
		if(!rd[i])
		{
			if(mincost[i]>1e8)
			{
				flag=1;
				ID=min(ID,Min[i]);
			}
			else 
			ans+=mincost[i];
		}
	}
	if(!flag)
	printf("YES\n%d",ans);
	else 
	{
		for(int i=1;i<=n;i++)
		if(!mark[belong[i]]) 
		{
			printf("NO\n%d",i);
			break;
		}
	}
    return 0;
}