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

[Allise1]

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

[Krjuger]

Ну чтож начнем.
Во-первых, зачем вам максимум и минимум,если вы их нигде не используете?
Во-вторых, зачем такие сложности в условии, тем более что и оно не совсем верное.

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;

Зачем здесь столько отрицаний?

for i:=2 to n-1 do 
begin
   if not(((a[i]>a[i+1]) and (a[i]>a[i-1])) or ((a[i]<a[i+1]) and (a[i]<a[i-1]))) then
   begin
      k:=k+1;
      d[k]:=a[i];
   end;
end;

Вот и все.

Сообщение отредактировано: Krjuger - 14.11.2012 0:47

[Allise1]

Ну чтож начнем.
Во-первых, зачем вам максимум и минимум,если вы их нигде не используете?
Во-вторых, зачем такие сложности в условии, тем более что и оно не совсем верное.

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;

Зачем здесь столько отрицаний?

for i:=2 to n-1 do 
begin
   if not(((a[i]>a[i+1]) and (a[i]>a[i-1])) or ((a[i]<a[i+1]) and (a[i]<a[i-1]))) then
   begin
      k:=k+1;
      d[k]:=a[i];
   end;
end;

Вот и все.

спасибо исправила, работает.Нам же нужно теперь из нового, образовавшегося массива найти максимальный элемент.Для этого я его и описала.только как это сделать?

Сообщение отредактировано: Allise1 - 14.11.2012 2:47