В произвольно заданном одномерном массиве определить элементы, слева и справа то которых расположены меньшие значения.[PASCAL]
Код: for i:=2 to n-1 do if (a[i-1]a[i+1]) then writeln(i,' element'); (Источник:http://www.programmersforum.ru)