my $N=<STDIN>;
@A=split(/ /,<STDIN>);
my $r=$N;
for(1..$N){
	if($A[$_]>$A[$_-1]){
		$r=$_;
		last;
	}
}
my $ans=0;
for(my $i=$r-1;$i>=0;$i-=1){
	if($A[$i]==$A[$r-1]){
		$ans++;
	}
	else{
		last;
	}
}
print $ans;