Одномерный массив Pascal

[ProfNoob]

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

задача

Создать массив целых чисел B[1..N]. Сформировать новый массив, содержащий суммы элементов, расположенных между соседними локальными минимумами (локальным минимумом называется значение, соседние числа у которого больше его).

[min@y™]

как найти промежуток между лок. минимумами

Если B[x1], B[x2] - твои минимумы при х1 < x2, то промежуточные элементы - это кусок массива B[x1 + 1 .. x2 - 1].

[ProfNoob]

Не получается это реализовать...

[min@y™]

Не получается это реализовать...

Почему?
Покажи, что сделано!

[ProfNoob]

const N = 20; {например}
A,B:array[1..N] of integer;
i:integer;
begin 
cls;
randomize;
for i:=1 to N do B[i]=random(20);
for i:=2 to N-1 do begin{нахождение локальных минимумов, тут вся загвоздка...}
if (B[i]<B[i+1]) and (B[i]<B[i-1]) then {как потом найти этот промежуток между локальными минимумами?}
end;
end.

[min@y™]

как потом найти этот промежуток между локальными минимумами?

Дык надо запоминать индекс i после then. В другом массиве.

[ProfNoob]

сумму нужно в другой массив записать. Может я чего-то не понимаю, покажи на примере

[ProfNoob]

Пожалустай, Напиши правильное продолжение, а то я не понимаю...

[ProfNoob]

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

задача

Создать массив целых чисел B[1..N]. Сформировать новый массив, содержащий суммы элементов, расположенных между соседними локальными минимумами (локальным минимумом называется значение, соседние числа у которого больше его

все, что могу...

const N = 20; {например}
A,B:array[1..N] of integer;
i:integer;
begin 
cls;
randomize;
for i:=1 to N do B[i]=random(20);
for i:=2 to N-1 do begin{нахождение локальных минимумов, тут вся загвоздка...}
if (B[i]<B[i+1]) and (B[i]<B[i-1]) then {как потом найти этот промежуток между локальными минимумами?}
end;
end.

[min@y™]

Пожалустай, Напиши правильное продолжение, а то я не понимаю...

У меня выходной. Я могу отдохнуть?
На форуме полно народу.