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

[min@y™]

if (B[i]<B[i+1]) and (B[i]<B[i-1]) 
  then {запомнить индекс i в массиве С}
{в следующем цикле использовать массив С в рассчёте
 сумм для записи в массив А.}

Бонус тебе, заслужил.

[ProfNoob]

Что-то непонятно мне, напиши, пожалуйста, этот кусок кода.

[min@y™]

напиши, пожалуйста, этот кусок кода.

Я лежу на диване, под одеялом и смотрю "что-где-почём". Мне, что, всё бросить и написать тебе лабу? У меня:
1. выходной
2. усталость
3. алкогольное опьянение
4. клавиатура в руке
5. сигарета в зубах
6. знатоки в телевизоре
7. кот на пузе.
Представил картину?

Ты на моём месте занялся бы в такой ситуации чужой работой?

[Serge_Bliznykov]

ProfNoob, то, что Вы написали, это не программа, это просто намёк на программу.
Там же банально синтаксические ошибки...

ну да ладно. Раз там был алгоритм определения лок.минимумом, то так и быть,
вот вам решение, разбирайтесь в нём:

const N = 20; {например}

var
  B, ArrSum :array[1..N] of integer;
  i, j, sum, indexArrSum, prevIndexMin : integer;
begin
  cls;
  randomize;
  for i:=1 to N do begin
    B[i] := random(20);
    Write(B[i]:2, ' ');
  end;
  WriteLn;
  
  indexArrSum := 0;
  prevIndexMin := -1;
  for i:=2 to N-1 do begin{нахождение локальных минимумов, тут вся загвоздка...}
     if (B[i]<B[i+1]) and (B[i]<B[i-1]) then begin
        Write('mIndex = ',i,' '); {для отладки просто выведем позицию минимума на экран}
        if prevIndexMin>0 then begin {если локальный индекс не первый,
                                      то уже можно считать сумму между элементами}
          sum := 0;
          for j:=prevIndexMin+1 to i-1 do sum := sum + B[j];
          inc(indexArrSum);
          ArrSum[indexArrSum] := sum;
        end;
        prevIndexMin := i;  {сохранили индекс элемента, как индекс предыдущего
                                лок.минимума}
     end;
  end;
  WriteLn;
  
  {вывод полученнного массива}
  if indexArrSum =0 then WriteLn('Локальных минимумом меньше двух. Никаких сумму между нет!')
  else begin
    Write('Массив сумм : ');
    for i:=1 to indexArrSum do Write(ArrSum[i]:3,' ');
    WriteLn
  end;
end.