Массив.паскаль

[Alise]

дан массив размером N.найти максимальный из его элементов, не являющихся ни локальным минимумом, ни локальным максимумом.Если таких элементов нет, то вывести об этом сообщение.
Упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений

[NinaSSS]

попробуйте так

program jkfh;
var a:array[1..10] of integer; i, max,n,f:integer;
begin
readln(n); f:=0;
for i:=1 to n do begin
readln(a[i]);end;
max:=-1000;
for i:=2 to n-1 do begin

if ( (a[i]>a[i+1])and (a[i]>a[i-1]) and (a[i]<a[i+1])and (a[i]<a[i-1])) then
f:=1 else   if (a[i]> max) then
max:=a[i];end;
writeln('max=',max);end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.