Найти максимальный из его локальных минимумов в массиве (Delphi)

[ALEXandr20333]

Дан массив размера N. Найти максимальный из его локальных минимумов (локальный минимум -это элемент, который меньше любого из своих соседей).

[Vanta11a]

for i:=1 to n-1 do
if (arr[i] < arr[i-1]) and (arr[i] < arr[i+1]) and (arr[min_i] < arr[i]) then min_i:=i;
writeln(arr[min_i]);

[Serge_Bliznykov]

Vanta11a, извините, а в вашем случае массив как объявлен?
Дело в том, что если массив индексируется от 1 (как я предполагаю, судя по n-1), то, вот это:

if (arr[i] < arr[i-1]) ...

неверно! Это выход за пределы массива...

ну и желательно в примере показать, что min_i должен быть обязательно проиницилизирован ДО цикла!


p.s. не знаю, как в понятии "локальный минимум" трактуются крайние элементы (первый и последний элементы массива), которые имеют по одному "соседу".
Если игноруются, то достаточно цикл for начать от 2-го элемента массива...

[Vanta11a]

извините, а в вашем случае массив как объявлен?

arr:array [0..n] of real;

Да, я игнорирую первый(нулевой) и последний элементы массива в переборе.

[Serge_Bliznykov]

Сообщение от Vanta11a

arr:array [0..n] of real;

ясно.
ну, формально, это не совсем соответствует заданию:

Дан массив размера N.

У Вас размер массива N+1 получается.
Но это легко поправить (если в этом вообще есть необходимость).

Сообщение от Vanta11a

Да, я игнорирую первый(нулевой) и последний элементы массива в переборе.

Понятно. А это Вы сами так решили или знаете, что это так? Лень гуглить, поэтому и спрашиваю...
Я бы тоже так же поступил, раз у крайних элементов нет всех соседей, то они не могут претендовать на высокое звание локальных минимумов!
Но, на самом деле, может быть, наука по другому считает!


p.s. а автор топика, между тем, ещё тему создал: Найти максимальный из его локальных минимумов

[ALEXandr20333]

помогите переделать код в делфи (и что надо кинуть на форму)

var
i:integer; // счетчик в цикле 
min:integer; // максимальный из локальных минимумов 
N:integer;
a: array [1..10] of integer;
bol:boolean; //флаг нахождения первого локального минимума 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
// ручной ввод значений массива 
for i:=1 to n do
begin
write('a[',i,']=');
readln(A[i]);
end;
min:=0; // начальное значение переменной 
bol:=false; // начальное значение переменной 
for i:=2 to n-1 do
begin
if (a[i]//проверка элемента на локальный минимум 
begin
// если локальный минимум не первый и приэтом больше максимального локального минимума 
if bol and (minthen min:=a[i];
if (not bol) then //если локальный минимум первый 
begin min:=a[i]; bol:=true; end;
end;
end;
end;
// вывод результата 
writeln('максимальный из локальных минимумов = ',min);
end.

[Serge_Bliznykov]

Сообщение от ALEXandr20333

помогите переделать код в делфи (и что надо кинуть на форму)

А зачем Вам на форму что-то кидать?!
Создайте в Delphi консольный проект, вставьте туда этот свой код, получите КОНСОЛЬНОЕ приложение.