#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_POINT_MAX		50										// 最大地点数
#define D_COST_MAX		1000									// 最大コスト
#define D_MOVE_MAX		D_COST_MAX * D_POINT_MAX				// 最大移動コスト

// 内部変数
static FILE *szpFpI;											// 入力
static int siPCnt;												// 地点数
static int si1Stay[D_POINT_MAX];								// 滞在コスト[地点]
static int si2Move[D_POINT_MAX][D_POINT_MAX];					// 移動コスト[地点(元)][地点(先)]
static int siMin;												// 最小コスト

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
#endif

// 実行メイン
int
fMain(
	int piTNo					// <I> テスト番号 1～
)
{
	int i, j, k;
	char lc1Buf[1024], lc1Out[1024];

	// データ - 初期化
	siMin = INT_MAX;											// 最小コスト

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", piTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", piTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 地点数 - 取得
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &siPCnt);

	// 滞在コスト[地点] - 取得
	for (i = 0; i < siPCnt; i++) {
		fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
		sscanf(lc1Buf, "%d", &si1Stay[i]);
	}

	// 移動コスト - 初期化
	for (i = 0; i < siPCnt; i++) {
		for (j = 0; j < siPCnt; j++) {
			if (i == j) {
				si2Move[i][j] = 0;
			}
			else {
				si2Move[i][j] = D_MOVE_MAX;
			}
		}
	}

	// 移動コスト数 - 取得
	int liMCnt;
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &liMCnt);

	// 移動コスト - 取得
	for (i = 0; i < liMCnt; i++) {
		int liPNo1, liPNo2, liCost;
		fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
		sscanf(lc1Buf, "%d%d%d", &liPNo1, &liPNo2, &liCost);

		si2Move[liPNo1][liPNo2] = liCost;
		si2Move[liPNo2][liPNo1] = liCost;
	}

	// 移動コスト - 更新 - ワーシャルフロイド
	for (i = 0; i < siPCnt; i++) {
		for (j = 0; j < siPCnt; j++) {
			for (k = 0; k < siPCnt; k++) {
				int liCost = si2Move[j][i] + si2Move[i][k];
				if (si2Move[j][k] > liCost) {
					si2Move[j][k] = liCost;
				}
			}
		}
	}

	// 滞在の全パターンをチェック
	for (i = 1; i < siPCnt - 1; i++) {
		for (j = 1; j < siPCnt - 1; j++) {
			if (i == j) {
				continue;
			}

			// 合計コスト
			int liCost = si2Move[0][i] + si1Stay[i] + si2Move[i][j] + si1Stay[j] + si2Move[j][siPCnt - 1];

			// 最小コスト - 更新
			if (siMin > liCost) {
				siMin = liCost;
			}
		}
	}

	// 結果 - セット
	sprintf(lc1Out, "%d\n", siMin);

	// 結果 - 表示
#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, lc1Out)) {
		siRes = -1;
	}
#else
	printf("%s", lc1Out);
#endif

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", piTNo);
	}
	else {
		printf("NG %d\n", piTNo);
	}
#endif

	return 0;
}

int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		fMain(i);
	}
#else
	fMain(0);
#endif

	return 0;
}