用符号函数就可以了。
不知道会不会有相等的相邻数，该如何处理？

for i=2 to ubound(a)-1
    if sgn(a(i)-a(i-1))=sgn(a(i)-a(i+1)) then print a(i);
next

CLS
INPUT n
DIM a(n): FOR i = 1 TO n: INPUT a(i): NEXT i
a$ = " "
FOR i = 2 TO n
    IF a(i) > a(i - 1) THEN a$ = a$ + "b" ELSE a$ = a$ + "s"
NEXT i
FOR i = 2 TO n - 1
    IF MID$(a$, i, 1) <> MID$(a$, i + 1, 1) THEN PRINT a(i);
NEXT i
END