$N=<>;
@A=glob<>;
for$i(1..$N-1){
	$f[$i]=$f[$i-1]+($A[$i-1]>$A[$i]);
	$g[$i]=$g[$i-1]+($A[$i-1]<$A[$i]);
}
<>;
for(<>){
	($l,$r)=split;
	print$f[$r]-$f[$l]?0:1,$",$g[$r]-$g[$l]?0:1,$/;
}