#include <algorithm>
#include <bitset>
#include <cassert>
#include <cctype>
#include <chrono>
#define _USE_MATH_DEFINES
#include <cmath>
#include <cstdio>
#include <cstring>
#include <ctime>
#include <deque>
#include <functional>
#include <iostream>
#include <iterator>
#include <map>
#include <queue>
#include <random>
#include <set>
#include <sstream>
#include <string>
#include <tuple>
#include <utility>
#include <vector>
using namespace std;

#define FOR(i,m,n) for(int i=(m);i<(n);++i)
#define REP(i,n) FOR(i,0,n)
#define ALL(v) (v).begin(),(v).end()

const int INF = 0x3f3f3f3f;
const long long LINF = 0x3f3f3f3f3f3f3f3fLL;
const double EPS = 1e-8;
const int MOD = 1000000007; // 998244353;
const int dy[] = {1, 0, -1, 0}, dx[] = {0, -1, 0, 1};
/*-------------------------------------------------*/
template <typename Monoid>
struct RMQ {
  RMQ(int sz_, const Monoid &UNITY_) : UNITY(UNITY_) {
    init(sz_);
    dat.assign((sz << 1) - 1, UNITY);
  }

  RMQ(const vector<Monoid> &seq, const Monoid &UNITY_) : UNITY(UNITY_) {
    int seq_sz = seq.size();
    init(seq_sz);
    dat.resize((sz << 1) - 1);
    REP(i, seq_sz) dat[sz - 1 + i] = seq[i];
    for (int i = sz - 2; i >= 0; --i) dat[i] = min(dat[(i << 1) + 1], dat[(i << 1) + 2]);
  }

  void update(int node, Monoid value) {
    node += sz - 1;
    dat[node] = value;
    while (node > 0) {
      node = (node - 1) >> 1;
      dat[node] = min(dat[(node << 1) + 1], dat[(node << 1) + 2]);
    }
  }

  Monoid query(int a, int b) { return query(a, b, 0, 0, sz); }

  int find(int a, int b, Monoid value) { return find(a, b, value, 0, 0, sz); }

  inline Monoid operator[](const int idx) const { return dat[idx + sz - 1]; }

private:
  int sz = 1;
  const Monoid UNITY;
  vector<Monoid> dat;

  void init(int sz_) { while (sz < sz_) sz <<= 1; }

  Monoid query(int a, int b, int node, int left, int right) {
    if (right <= a || b <= left) return UNITY;
    if (a <= left && right <= b) return dat[node];
    return min(query(a, b, (node << 1) + 1, left, (left + right) >> 1), query(a, b, (node << 1) + 2, (left + right) >> 1, right));
  }

  int find(int a, int b, Monoid value, int node, int left, int right) {
    if (dat[node] > value || right <= a || b <= left) return -1;
    if (right - left == 1) return node - (sz - 1);
    int res_l = find(a, b, value, (node << 1) + 1, left, (left + right) >> 1);
    if (res_l != -1) return res_l;
    return find(a, b, value, (node << 1) + 2, (left + right) >> 1, right);
  }
};

int main() {
  cin.tie(0); ios::sync_with_stdio(false);
  // freopen("input.txt", "r", stdin);

  //           X Y Z
  //      b |  0 0 1
  //      a |  0 * 0
  // コスト | -1 1 1  とする
  // 目標はコストをできるだけ最小にすること

  int n; cin >> n;
  vector<int> b(n);
  int zero = 0; // b の中の 0 の数 (Y)
  REP(i, n) {
    cin >> b[i];
    if (b[i] == 0) ++zero;
  }

  vector<vector<int> > r(n);
  int q; cin >> q;
  while (q--) {
    int l, rr; cin >> l >> rr; --l; --rr;
    r[l].emplace_back(rr);
  }

  // dp[i][j] = (l = i - 1) まで見る
  //            [i, j) を 1 に書き換えたときの [0, i) におけるコストの最小値
  RMQ<int> rmq(n + 1, INF);
  rmq.update(0, 0); // dp[0][0] = 0
  REP(i, n) {
    sort(ALL(r[i]));
    for (int right : r[i]) {
      // [i, right] を 1 に書き換える
      // dp[i + 1][right + 1] = min{dp[i + 1][right + 1], min_[i <= j <= right]dp[i][j]}
      rmq.update(right + 1, rmq.query(i, right + 2));
    }

    // a[i] を 1 に書き換えなかった場合
    int dp = rmq.query(i, i + 1);
    if (b[i] == 0) --dp; // X
    else ++dp;           // Z
    if (dp < rmq.query(i + 1, i + 2)) rmq.update(i + 1, dp); // dp[i + 1][i + 1]
  }
  cout << zero + rmq.query(n, n + 1) << '\n'; // dp[n][n]
  return 0;
}


Measured memory_bytes: 11776