Let's decrease the monotony
Perl 6, 17 bytes



{[&gt;](@_)+[&gt;=] @_}



Monotone strictly decreasing: 2
Monotone non-increasing: 1
Other: 0


Expanded:

{            # bare block lambda with implicit parameter list ｢@_｣
  [&gt;]( @_ )  # reduce using ｢&amp;infix:« &gt; »｣
  +
  [&gt;=] @_    # reduce using ｢&amp;infix:« &gt;= »｣
}