program z716;
uses crt;
const n=10;
var x:array[1 ..n] of integer;
k,s,i,c:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin x[i]:=random(30)-10;
write(x[i]:7);end;
writeln;
c:=0;
for i:=1 to n do
begin
k:=x[i-1];
s:=x[i+1];
if ((x[i]>k) and (x[i]>s)) then c:=c+1;
end;
writeln(c);
readln;
END.