#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
using namespace std;
typedef long long int ll;
typedef pair<ll, int> P;
const ll INF=1e16;
int n, m, l;
ll t[2001];
vector<P> g[2001];
ll d[2001][2001];
int main()
{
	cin>>n>>m>>l;
	l--;
	for(int i=0; i<n; i++) cin>>t[i];
	for(int i=0; i<m; i++){
		int a, b; ll c;
		cin>>a>>b>>c; a--; b--;
		g[a].push_back(P(c, b));
		g[b].push_back(P(c, a));
	}
	for(int i=0; i<n; i++){
		fill(d[i], d[i]+n, INF);
		d[i][i]=0;
		priority_queue<P, vector<P>, greater<P>> que;
		que.push(P(0, i));
		while(!que.empty()){
			P p=que.top(); que.pop();
			int x=p.second;
			if(d[i][x]<p.first) continue;
			for(auto q:g[x]){
				int y=q.second;
				if(d[i][y]>d[i][x]+q.first){
					d[i][y]=d[i][x]+q.first;
					que.push(P(d[i][y], y));
				}
			}
		}
	}
	ll ans=INF;
	for(int i=0; i<n; i++){
		ll ans1=0;
		if(t[l]>0){
			ans1=d[l][i];
			for(int j=0; j<n; j++){
				if(l==j) ans1+=d[i][j]*(t[j]-1)*2;
				else ans1+=d[i][j]*t[j]*2;
			}
		}else{
			ll mn=INF;
			for(int j=0; j<n; j++){
				if(t[j]) mn=min(mn, d[l][j]+d[j][i]);
			}
			ans1=mn;
			for(int j=0; j<n; j++){
				ans1+=d[i][j]*t[j]*2;
			}
		}
		ans=min(ans, ans1);
	}
	cout<<ans<<endl;
	return 0;
}