Одномерный массив., поиск максимального элемента Опции

[Allise1]

кто-нибудь может помочь?очень нужно!
Дан массив размера N.
Найти максимальный из его элементов, не являющихся ни локальным максимумом, ни локальным минимумом(локальный минимум-это элемент, который меньше любого из своих соседей).Если таких элементов в массиве нет, вывести об этом сообщение.
упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений.
для отладки программы числа последовательности сформировать с помощью генератора случайных чисел.

[Krjuger]

Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума.

[Гость]

Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума.

var
a: array [1..100] of integer;
i,max,N: integer;

begin
randomize;
write('N (<=100)= ');
readln(N);
for i:= 1 to n do
a[i]:=-25+random(101);
writeln('Initial array: ');
for i:=1 to N do write(a[i]:4);
writeln;
max:=-80;
for i:=2 to N-1 do
if (a[i]>max) and
not((a[i]>a[i+1]) and (a[i]>a[i-1])) and
not((a[i]<a[i+1]) and (a[i]<a[i-1])) then max:=a[i];
writeln('Result: ');
if max=-80 then writeln('No such elements') else writeln('Max= ',max);
readln
end.
но эта только первая часть задания, как вторую сделать вообще понятия не имею(
нужна сортировка массива, чтоб сравнить соседние элементы и при выполнении условия поменять их местами

[Allise1]

var
a: array [1..100] of integer;
i,max,N: integer;

begin
randomize;
write('N (<=100)= ');
readln(N);
for i:= 1 to n do
a[i]:=-25+random(101);
writeln('Initial array: ');
for i:=1 to N do write(a[i]:4);
writeln;
max:=-80;
for i:=2 to N-1 do
if (a[i]>max) and
not((a[i]>a[i+1]) and (a[i]>a[i-1])) and
not((a[i]<a[i+1]) and (a[i]<a[i-1])) then max:=a[i];
writeln('Result: ');
if max=-80 then writeln('No such elements') else writeln('Max= ',max);
readln
end.
но эта только первая часть задания, как вторую сделать вообще понятия не имею(
нужна сортировка массива, чтоб сравнить соседние элементы и при выполнении условия поменять их местами

спасибо!
я делала эту часть немного по другому
Program mass;
uses crt;
const N=10;
var a,d:array [1..n] of integer;
k,i,c,b,min,max:integer;
begin clrscr;
randomize;
write ('Nachaln massiv');
writeln ('Vvedite interval [b, c]');
readln (b,c);
for i:=1 to n do begin
a[i]:=random (c-b+1)+b;
write (a[i], ' '); end;
writeln;
max:=b;
min:=c; k:=0;
for i:=2 to n-1 do begin
if (not((a[i]>a[i+1]) and (a[i]>a[i-1]))) or

(not((a[i]<a[i+1]) and
(a[i]<a[i-1]))) then begin k:=k+1;
d[k]:=a[i]; end; end;
if k=0 then writeln ('Net ') else
begin
writeln ('Massiv new');
for i:=1 to k do write (d[i]:4);
writeln ; end;
readkey;
end.
то есть создала новый массив из подходящих нам эл-в и среди них уже ищу макс.Только видимо с условием что-то не то, он в новый массив лок-е макс и минимумы собирает(Не могли бы посмотреть в чем ошибка?