using System;
using System.Collections.Generic;
using System.Collections;
using System.Collections.Specialized;
using System.Linq;
using System.Text;
using System.IO;
using System.Reflection;
using static System.Math;
using System.Numerics;
static class Program{
	const int mod=(int)1e9+7;
	static void Main(){
		Sc sc=new Sc();
		var s=sc.Ia;
		var a=sc.Ia;
		int p=1;
		var h=new Tuple<int,int>[s[0]];
		var b=new int[s[0]];
		for(int i = 0;i<s[0];i++) {h[i]=Tuple.Create(a[i],i);}
		Array.Sort(h,(u,v)=>u.Item1-v.Item1);
		b[h[0].Item2]=1;
		for(int i = 1;i<s[0];i++) {
			if(h[i].Item1!=h[i-1].Item1){p++;}
			b[h[i].Item2]=p;
		}
		var c=new int[p+1];
		St st1=new St(p+1,s[0]),st2=new St(p+1,s[0]);
		for(int i = 0;i<s[0];i++) {
			st1.Ud(b[i],1,st1.qc);
			st2.Ud(b[i],a[i],st2.qc);
			c[b[i]]=a[i];
		}
		StringBuilder sb=new StringBuilder();
		for(int i = 0;i<s[1];i++) {
			var e=sc.Ia;
			int lb=0,ub=p+1,mid=0;
			while(ub-lb>1){
				mid=(ub+lb)/2;
				if(st1.Get(0,mid,e[1])-st1.Get(0,mid,e[0]-1)>=(e[1]-e[0]+2)>>1){ub=mid;}
				else{lb=mid;}
			}
			long ans=c[ub]*(st1.Get(0,ub-1,e[1])-st1.Get(0,ub-1,e[0]-1))-(st2.Get(0,ub-1,e[1])-st2.Get(0,ub-1,e[0]-1));
			ans+=st2.Get(ub+1,p,e[1])-st2.Get(ub+1,p,e[0]-1)-c[ub]*(st1.Get(ub+1,p,e[1])-st1.Get(ub+1,p,e[0]-1));
			sb.Append(ans+"\n");
		}
		Console.Write(sb);
	}
}
public class St{
	public class Mo{
		public readonly long d;
		public readonly Mo l,r;
		public Mo(long d,Mo l,Mo r){this.d=d;this.l=l;this.r=r;}
		public Mo(long d){this.d=d;l=this;r=this;}
	}
	private Mo[][] dat;
	private Mo du;
	public int m=1,cnt=0,qc=0,t=1;
	public St(int n,int k){
		while(m<n){m<<=1;t++;}
		cnt=m+n-1;
		dat=new Mo[k+1][];
		dat[0]=new Mo[t];
		du=new Mo(0);
		for(int i=0;i<t;i++){dat[0][i]=du;}
	}
	public void Ud(int n,long d,int p){
		qc++;
		dat[qc]=new Mo[t];
		Fd(0,n,d,t-2,dat[p][0]);
	}
	private void Fd(int a,int n,long d,int c,Mo p){
		if(c==-1){
			dat[qc][a]=new Mo(d+p.d,du,du);
		}
		else if(((n>>c)&1)==0){
			Fd(a+1,n,d,c-1,p.l);
			dat[qc][a]=new Mo(dat[qc][a+1].d+p.r.d,dat[qc][a+1],p.r);
		}
		else{
			Fd(a+1,n,d,c-1,p.r);
			dat[qc][a]=new Mo(dat[qc][a+1].d+p.l.d,p.l,dat[qc][a+1]);
		}
	}
	private long Fdg(int a,int b,Mo k,int l,int r){
		if(r<a||b<l){return 0;}
		if(a<=l&&r<=b){return k.d;}
		return Fdg(a,b,k.l,l,(l+r)>>1)+Fdg(a,b,k.r,(l+r+1)>>1,r);
	}
	public long Get(int a,int b,int n){return Fdg(a,b,dat[n][0],0,m-1);}
}

public class Sc{
	public int I{get{return int.Parse(Console.ReadLine());}}
	public long L{get{return long.Parse(Console.ReadLine());}}
	public double D{get{return double.Parse(Console.ReadLine());}}
	public string S{get{return Console.ReadLine();}}
	public int[] Ia{get{return Array.ConvertAll(Console.ReadLine().Split(),int.Parse);}}
	public long[] La{get{return Array.ConvertAll(Console.ReadLine().Split(),long.Parse);}}
	public double[] Da{get{return Array.ConvertAll(Console.ReadLine().Split(),double.Parse);}}
	public string[] Sa{get{return Console.ReadLine().Split();}}
	public object[] Oa{get{return Console.ReadLine().Split();}}
	public int[] Ia2{get{return Array.ConvertAll(("0 "+Console.ReadLine()+" 0").Split(),int.Parse);}}
	public int[] Ia3(int a){return Array.ConvertAll((a.ToString()+" "+Console.ReadLine()).Split(),int.Parse);}
	public int[] Ia3(bool a,int b,bool c,int d){return Array.ConvertAll(((a?b.ToString()+" ":"")+Console.ReadLine()+(c?" "+d.ToString():"")).Split(),int.Parse);}
	public long[] La2{get{return Array.ConvertAll(("0 "+Console.ReadLine()+" 0").Split(),long.Parse);}}
	public long[] La3(int a){return Array.ConvertAll((a.ToString()+" "+Console.ReadLine()).Split(),long.Parse);}
	public long[] La3(bool a,int b,bool c,int d){return Array.ConvertAll(((a?b.ToString()+" ":"")+Console.ReadLine()+(c?" "+d.ToString():"")).Split(),long.Parse);}
	public T[] Arr<T>(int n,Func<T> f){var a=new T[n];for(int i=0;i<n;i++){a[i]=f();}return a;}
	public T[] Arr<T>(int n,Func<int,T> f){var a=new T[n];for(int i=0;i<n;i++){a[i]=f(i);}return a;}
	public T[] Arr<T>(int n,Func<string[],T> f){var a=new T[n];for(int i=0;i<n;i++){a[i]=f(Console.ReadLine().Split());}return a;}
	public T[] Arr<T>(int n,Func<int,string[],T> f){var a=new T[n];for(int i=0;i<n;i++){a[i]=f(i,Console.ReadLine().Split());}return a;}
}