Дан массив, содержащий 2015 неотрицательных целых чисел. ямой называется не крайний элемент массива, который меньше обоих своих соседей. необходимо найти в массиве самую глубокую яму, то есть яму, значение которой минимально. если в массиве нет ни одной ямы, ответ считается равным 0. например, в массиве из шести элементов, равных соответственно 4, 9, 2, 17, 3, 8, есть две ямы – 2 и 3, самая глубокая яма – 2.
N=2015;
var
a: array [1..N] of integer;
i, min: integer;
begin
min:=-1;
for i:=2 to N-1 do
if (a[i]>a[i-1]) and (a[i]<a[i+1]) and ((a[i]<min) or (min=-1)) then
min:=a[i];
Writeln(min)
end.