program mass1;
uses crt;
var n,i,k:integer; a:array[1..100] of integer;
function SmZn(n:integer):integer;
var k:integer;
begin
k:=0;
for i:=1 to n do
    begin
     if a[i]*a[i+1]<0 then
     k:=k+1;
   end;
SmZn:=k;
end;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do begin
     a[i]:= random(15)-10;
     write(a[i],' ');
  end;readln;
write('k=',SmZn(n));readln;
end.