#include <bits/stdc++.h>
#define For(i, a, b) for(int (i)=(int)(a); (i)<(int)(b); ++(i))
#define rFor(i, a, b) for(int (i)=(int)(a)-1; (i)>=(int)(b); --(i))
#define rep(i, n) For((i), 0, (n))
#define rrep(i, n) rFor((i), (n), 0)
#define fi first
#define se second
using namespace std;
typedef long long lint;
typedef unsigned long long ulint;
typedef pair<int, int> pii;
typedef pair<lint, lint> pll;
template<class T> bool chmax(T &a, const T &b){if(a<b){a=b; return true;} return false;}
template<class T> bool chmin(T &a, const T &b){if(a>b){a=b; return true;} return false;}
template<class T> T div_floor(T a, T b){
    if(b < 0) a *= -1, b *= -1;
    return a>=0 ? a/b : (a+1)/b-1;
}
template<class T> T div_ceil(T a, T b){
    if(b < 0) a *= -1, b *= -1;
    return a>0 ? (a-1)/b+1 : a/b;
}

constexpr lint mod = 1e9+7;
constexpr lint INF = mod * mod;
constexpr int MAX = 200010;

int main(){
    int n, m;
    scanf("%d", &n);
    lint d[n][n], s[n];
    rep(i, n) scanf("%lld", &s[i]);
    scanf("%d", &m);
    rep(i, n){
        rep(j, n) d[i][j] = mod;
        d[i][i] = 0;
    }
    rep(i, m){
        int a, b; lint c;
        scanf("%d%d%lld", &a, &b, &c);
        d[a][b] = d[b][a] = c;
    }
    rep(k, n)rep(i, n)rep(j, n){
        chmin(d[i][j], d[i][k] + d[k][j]);
    }
    lint ans = mod;
    For(i, 1, n-1)For(j, 1, n-1)if(i != j){
        chmin(ans, d[0][i] + s[i] + d[i][j] + s[j] + d[j][n-1]);
    }
    printf("%lld\n", ans);
}