var v,c:array[1..100000] of longint;
    i,k,n,m,x,y,s:longint;f,g:text;
begin
assign(f,'distincte.in');reset(f);
assign(g,'distincte.out');rewrite(g);
readln(f,n,k,m);
for i:=1 to n do readln(f,v[i]);
for i:=1 to m do begin
    readln(f,x,y);
    fillchar(c,sizeof(c),0);
    s:=0;
    for k:=x to y do
        if c[v[k]]=0 then begin
           s:=s+v[k];
           c[v[k]]:=1;
           end;
    writeln(g,s);
    end;
close(g);
close(f);
end.