#include<vector>
#include<cmath>
#include<map>
#include<cstdlib>
#include<iostream>
#include<sstream>
#include<fstream>
#include<string>
#include<algorithm>
#include<cstring>
#include<cstdio>
#include<set>
#include<stack>
#include<bitset>
#include<functional>
#include<ctime>
#include<queue>
#include<deque>
#include<complex>
#include<cassert>
using namespace std;
#define pb push_back
#define pf push_front
typedef long long lint;
typedef complex<double> P;
#define mp make_pair
#define fi first
#define se second
typedef pair<lint,int> pint;
typedef pair<int,lint> pl;
typedef pair<lint,pair<int,int> > tint;
#define All(s) s.begin(),s.end()
#define rAll(s) s.rbegin(),s.rend()
#define REP(i,a,b) for(int i=a;i<b;i++)
#define rep(i,n) REP(i,0,n)
//問題文および制約はちゃんと確認しよう！
//サイズは10^5じゃなくて2×10^5とかかもしれないし、重要な制約・条件を見落としているかも
//とりあえずサンプルを読んでから解法を考えよう？
int dp[100100];
lint we[100100];
struct unionf{
	vector <int> data;
	unionf(int size):data(size,-1){}
	bool unions(int x,int y){
		x=root(x);y=root(y);
		if(x!=y){
			if(data[y]<data[x]){int d=x;x=y;y=d;}
			data[x]+=data[y];data[y]=x;
		}
		return x!=y;
	}
	bool finds(int x,int y){
		return root(x)==root(y);
	}
	int root(int x){
		return data[x]<0?x:data[x]=root(data[x]);
	}
	int find(int x){
		return -data[x];
	}
};
vector<tint> ed;
int main()
{
	int n,m,a,b;lint x;
	cin>>n>>m;
	unionf uni(n+10);
	rep(i,n){
		cin>>we[i];
	}
	memset(dp,0,sizeof(dp));
	rep(i,m){
		cin>>a>>b>>x;a--;b--;
		ed.pb(mp(x,mp(a,b)));
	}
	sort(All(ed));
	int out=0;
	rep(i,m){
		x=ed[i].fi;a=ed[i].se.se;b=ed[i].se.fi;
		int y=uni.root(a),z=uni.root(b);
		//cout<<y<<' '<<z<<endl;
		if(y==z){
			if(we[y]<x) out++,dp[y]++;
		}
		else{
			uni.unions(a,b);
			int w=uni.root(a);
			we[w]=we[y]+we[z];
			dp[w]=dp[y]+dp[z];
			if(we[w]<x) out++,dp[w]++;
			else{
				out-=dp[w];dp[w]=0;
			}
		}
	}
	cout<<out<<endl;
}
