#include <bits/stdc++.h>
using namespace std;
using ll = long long;

#define overload4(_1,_2,_3,_4,name,...) name
#define overload3(_1,_2,_3,name,...) name
#define OVERLOAD5(a, b, c, d, e, ...) e
#define elif else if
#define all1(i) begin(i),end(i)
#define all2(i,a) begin(i),begin(i)+a
#define all3(i,a,b) begin(i)+a,begin(i)+b
#define all(...) overload3(__VA_ARGS__,all3,all2,all1)(__VA_ARGS__)//allのオーバーロード
#define rall1(i) (i).rbegin(),(i).rend()
#define rall2(i,k) (i).rbegin(),(i).rbegin()+k
#define rall3(i,a,b) (i).rbegin()+a,(i).rbegin()+b
#define rall(...) overload3(__VA_ARGS__,rall3,rall2,rall1)(__VA_ARGS__)//rallのオーバーロード
#define len(n) (n).size()
#define vect1(type) vector<type>
#define vect2(type) vector<vect1(type)>
#define vect3(type) vector<vect2(type)>
#define vect4(type) vector<vect3(type)>
#define vect5(type) vector<vect4(type)>
#define vect6(type) vector<vect5(type)>

#define vectt2(type,v1,...) vect2(type) (v1,vect1(type)(__VA_ARGS__))
#define vectt3(type,v1,...) vect3(type) (v1,vect2(type)(vectt2(type,__VA_ARGS__)))
#define vectt4(type,v1,...) vect4(type) (v1,vect3(type)(vectt3(type,__VA_ARGS__)))
#define vectt5(type,v1,...) vect5(type) (v1,vect4(type)(vectt4(type,__VA_ARGS__)))
#define vectt6(type,v1,...) vect6(type) (v1,vect5(type)(vectt5(type,__VA_ARGS__)))

#define vec(d,type,n,...) vect##d(type) (n)(vectt##d(type,__VA_ARGS__))

#define mfor3(f,...) for(int i3=0;i3<f;i3++)mfor2(__VA_ARGS__)
#define mfor2(f,...) for(int i2=0;i2<f;i2++)mfor1(__VA_ARGS__)
#define mfor1(f,...) for(int i1=0;i1<f;i1++)mfor0(__VA_ARGS__)
#define mfor0(f,...) for(int i0=0;i0<f;i0++)


template<class T>T op(T a,T b){
	return((a/10000000+b/10000000+b%10000000/10*(a%10)+(a%10+b%10)/10)*10000000+10*(a%10000000/10+b%10000000/10)+(a%10+b%10)%9);
	

}
template<class T,T(*op)(T,T)>void segmake(vector<T> &seg){
  for(T i=seg[0]-1;i>0;i--){
    seg[i]=op(seg[i*2],seg[i*2+1]);
  }return;
}
template<class T,T(*op)(T,T)>void segset(int pt,T val,vector<T> &seg){
  pt+=seg[0];
  seg[pt]=val;
  pt/=2;
  while(pt!=0){
    seg[pt]=op(seg[pt*2],seg[pt*2+1]);
    pt/=2;
  }return;
}
template<class T,T(*op)(T,T)>T segprod(int begin,int end,T empty,vector<T> &seg){
  T ret=empty,bit=0,pt=begin;
  while(pt<end){
    while(pt%(2<<bit)==0)bit++;
    while(pt+(1<<bit)>=end&&bit>=1)bit--;
    ret=op(ret,seg[(pt+seg[0])>>bit]);
    pt+=1<<bit;
  }return ret;
}

int main(){
  int n,q;cin>>n>>q;
  vector<ll>s(1<<20,0);
  s[0]=1<<19;
  for(int i=0;i<n;i++){
  	ll a;cin>>a;
  	if(a==9)a=10000010;
  	if(a==1)a=11;
  	if(a==0)a=10;
  	s[s[0]+i+1]=a;
  }
  segmake<ll,op>(s);
  for(int i=0;i<q;i++){
    int f,e;cin>>f>>e;
    cout<<segprod<ll,op>(f,e+1,0,s)/10/1000000<<endl;
  }
  
}