program masuvu_1_12;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a:array[1..10000] of integer ;
  s,i,n:integer;
begin
  readln(n);
  s:=0;
  for i:=1 to n do
  readln(a[i]);
  for i:=1 to n-1 do
  if a[i]*a[i+1]<0 then
  s:=s+1;
  writeln('s= ',s);
  readln;
end.