Program Task_4;
Var
a : array [1..10000] of integer;
i,n, sum: integer;
Begin
sum:=0;
read(n);
for i := 1 to n do
       read(a[i]);
for i := 1 to n-1 do
    if (a[i+1] > a[i]) then
          sum:= sum + 1;

   writeln(sum);

End.