#pragma GCC optimize("Ofast")
#include<bits/stdc++.h>
using namespace::std;
//struct __INIT{__INIT(){cin.tie(0);ios::sync_with_stdio(false);cout<<fixed<<setprecision(15);}} __init;
__attribute__((constructor))
void init(){
	cin.tie(0);
	ios::sync_with_stdio(false);
	cout<<fixed<<setprecision(15);
}
// random_device rd;
// mt19937 mt(rd());
// #include <boost/numeric/interval.hpp>
// #include <boost/numeric/interval/io.hpp>
// #include <boost/intrusive/rbtree.hpp>
// #include <boost/dynamic_bitset.hpp>
// #include <boost/geometry.hpp>
// #include <boost/geometry/geometries/linestring.hpp>
// #include <boost/geometry/geometries/polygon.hpp>
// #include <boost/geometry/geometries/point_xy.hpp>
// #include <boost/math/tools/minima.hpp>
// using boost::math::tools::brent_find_minima;
// #include <boost/multiprecision/cpp_dec_float.hpp>
// #include <boost/multiprecision/cpp_int.hpp>
// namespace mp = boost::multiprecision;
// typedef mp::number<mp::cpp_dec_float<256>> cdouble;
// typedef mp::cpp_int cint;

#include<ext/pb_ds/assoc_container.hpp>
#include<ext/pb_ds/tree_policy.hpp>
#include <ext/pb_ds/priority_queue.hpp>
#include<ext/pb_ds/tag_and_trait.hpp>
template<typename T=long long>using pbds=__gnu_pbds::tree<T,__gnu_pbds::null_type,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T=long long>using pbds_map=__gnu_pbds::tree<T,T,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T=long long>using pqueue =__gnu_pbds::priority_queue<T, less<T>,__gnu_pbds::rc_binomial_heap_tag>;
typedef long long lint;
typedef long long ll;
typedef long double ldouble;
typedef vector<lint> vec;
typedef vector<vector<lint>> mat;
typedef vector<vector<vector<lint>>> mat3;
typedef vector<double> dvec;
typedef vector<vector<double>> dmat;
typedef vector<vector<vector<double>>> dmat3;
typedef vector<string> svec;
typedef vector<vector<string>> smat;
typedef vector<vector<vector<string>>> smat3;
typedef vector<pair<lint,lint>> pvec;
typedef vector<vector<pair<lint,lint>>> pmat;
typedef vector<vector<vector<pair<lint,lint>>>> pmat3;
#define rep(i, n) for(lint i = 0; i < (lint)(n); i++)
#define irep(i) for(lint i = 0;; i++)
#define irep1(i) for(lint i = 1;; i++)
#define irep2(i) for(lint i = 2;; i++)
#define rrep(i, n) for(lint i = (lint)(n-1); i >-1; i--)
#define rrepi(i,a,b) for(lint i = (lint)(b-1); i >a-1; i--)
#define repi(i,a,b) for(lint i=lint(a);i<lint(b);i++)
#define rep2(i,a,b,c) for(lint i=lint(a);i>lint(b);i+=c)
#define all(x) (x).begin(),(x).end()
#define PI 3.141592653589793
#define dist(x1,y1,x2,y2) (pow(pow(x2-x1,2)+pow(y2-y1,2),0.5))
#define input(a,n) lint n;cin>>n;vector<lint>a(n);rep(i,n)cin>>a[i];
#define SUM(v) accumulate(all(v),0LL)
#define INF (1LL<<60)
#define IINF (1<<30)
#define EPS (1e-10)
#define LINF 9223372036854775807
//#define MOD 998244353LL
#define MOD 1000000007LL
#define endl "\n"
template<typename T>inline void numout(T t){bool f=0;for(auto i:t){cout<<f?"":" "<<i<INF/2?i:"INF";f=1;}}
template<typename T>inline void numout2(T t){for(auto i:t)numout(i);cout<<endl;}
template<typename T>inline void output(T t){bool f=0;for(auto i:t){cout<<f?"":" "<<i;f=1;}}
template<typename T>inline void output2(T t){for(auto i:t)output(i);cout<<endl;}
template<typename T>inline void _output(T t){bool f=0;for(int i=0;i<t.size();i++){cout<<f?"":" "<<t[i];f=1;}}
template<typename T>inline void _output2(T t){for(int i=0;i<t.size();i++)output(t[i]);cout<<endl;}
auto Y=[&](auto f){return[&](auto... args){return f(f, args...);};};
template<typename T=lint>T in(){return *istream_iterator<T>(cin);}
template<typename T=lint>inline T gcd(T a,T b){return b?gcd(b,a%b):a;}
template<typename T=lint>inline T lcm(T a,T b){return a/gcd(a,b)*b;}
template<typename T=lint>inline T add(T a,T b){return a+b;}
template<typename T=lint>inline T minq(T a,T b){return min(a,b);}
inline bool chmin(auto& s,const auto& t){bool res=s>t;s=min(s,t);return res;}
inline bool chmax(auto& s,const auto& t){bool res=s<t;s=max(s,t);return res;}
vector<int> dx={-1,1,0,0,1,1,-1,-1};
vector<int> dy={0,0,-1,1,1,-1,1,-1};

template<typename T>
class persistent_segment_tree{
	struct node;
	using np=node*;
	using lint=long long;
	struct node{
		lint val;int cnt=0;
		np ch[2]={nullptr,nullptr};
		node(){}
		node(T val):val(val){}
		node(np n):val(n->val),cnt(n->cnt){ch[0]=n->ch[0];ch[1]=n->ch[1];}
	};
	vector<np>root{nullptr};
	lint sz=1,n;
	int count(np t){return t?t->cnt:0;}
	public:
	persistent_segment_tree(lint n):n(n){
		while(sz<n)sz<<=1;
	}
	void push_back(lint pos,T val){
		root.push_back(push_back(pos,val,root[root.size()-1],-sz,sz));
	}
	T get(lint lx,lint rx,lint ly,lint ry){
		return g(get(ly,ry,root[rx],-sz,sz),get(ly,ry,root[lx],-sz,sz));
	}
	lint get_count(lint lx,lint rx,lint ly,lint ry){
		return get_count(ly,ry,root[rx],-sz,sz)-get_count(ly,ry,root[lx],-sz,sz);
	}
	lint kth_element(lint lx,lint rx,lint k){
		return kth_element(root[rx],root[lx],k,-sz,sz);
	}
	private:
	np push_back(lint pos,T val,np t,lint l,lint r){
		if(l<=pos&&pos<r){
			np res=t?new node(t):new node(e);
			res->val=f(res->val,val);
			res->cnt++;
			if(r-l>1){
				res->ch[0]=push_back(pos,val,res->ch[0],l,(l+r)/2);
				res->ch[1]=push_back(pos,val,res->ch[1],(l+r)/2,r);
			}
			return res;
		}else{
			return t;
		}
	}
	lint get_count(lint a,lint b,np t,lint l,lint r){
		if(!t||r<=a||b<=l)return 0;
        if(a<=l&&r<=b){return t->cnt;}
        return f(get_count(a,b,t->ch[0],l,(l+r)/2),get_count(a,b,t->ch[1],(l+r)/2,r));
	}
	T get(lint a,lint b,np t,lint l,lint r){
        if(!t||r<=a||b<=l)return e;
        if(a<=l&&r<=b){return t->val;}
        return f(get(a,b,t->ch[0],l,(l+r)/2),get(a,b,t->ch[1],(l+r)/2,r));
    }
	lint kth_element(np s,np t,lint k,lint l,lint r){
		if(r-l==1)return l;
		if(!s)s=new node(e);
		if(!t)t=new node(e);
		lint cnt=count(s->ch[0])-count(t->ch[0]);
		if(cnt>k)return kth_element(s->ch[0],t->ch[0],k,l,(l+r)/2);
		else return kth_element(s->ch[1],t->ch[1],k-cnt,(l+r)/2,r);
	}
	T e=0;
	T f(T s,T t){
		return s+t;
	}
	T g(T s,T t){
		return s-t;
	}
};

template<typename T>
inline void compress(vector<T>& t,vector<T>& s){
	s=t;
	sort(all(s));
	s.erase(unique(all(s)),s.end());
	rep(i,t.size())t[i]=lower_bound(all(s),t[i])-s.begin();
}

int main(){
	lint n,q;
	cin>>n>>q;
	vec a(n);
	rep(i,n)cin>>a[i];
	persistent_segment_tree<lint>v(IINF);
	rep(i,n)v.push_back(a[i],a[i]);
	rep(i,q){
		lint s,t;
		cin>>s>>t;
		s--;
		lint mid=v.kth_element(s,t,(t-s)/2);
		lint a=v.get(s,t,mid,IINF)-mid*v.get_count(s,t,mid,IINF);
		lint b=-v.get(s,t,-IINF,mid)+mid*v.get_count(s,t,-IINF,mid);
		cout<<a+b<<endl;
	}
}