Question

В произвольно заданном одномерном массиве определить элементы, слева и справа то которых расположены меньшие значения.[PASCAL]

Answer 1

Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,' element');
(Источник:http://www.programmersforum.ru)