Массив целых чисел делится на три части двумя элементами: максимальным и минимальным (Delphi)

[eva-2030]

Добрый день. Помогите решить задачу пожалуйста. Заданный массив целых чисел делится на три части двумя элементами: максимальным и минимальным. Определите сумму элементов в каждой части массива . Используйте функцию для нахождения минимального и максимального индексов и подсчета суммы в указанной части.
Как определить максимальный и минимальные элементы это понятно, а вот как разделить на 3 части?...
Може кто подскажет??

[Alex11223]

"Запомнить" индексы минимального и максимального элементов и потом соответственно считать сумму значений элементов до\после него.

[eva-2030]

а поподробней можно? с кратким примером?

[Pein95]

нахождения мин елемента:

for i:=1 to n  do 
if a[i]<min then
begin
 min:=a[i];
 k:=i;// запоминаем индекс
end;

[eva-2030]

А как вывести масси в до инекса?... Туплю..

[Son Of Pain]

В цикле пройти. От начала до первого индекса будет первая часть, от первого индекса до второго - вторая, и до конца массива - третья )

[VVVadim]

подразумевается что максимальный и минимальный элементы уже найдены

procedure calculatesum(startItem, endItem: integer); // исчитаем сумму элементов начиная со startItem по endItem

...

// index_max - индекс максимального элемента
// index_min - индекс минимального элемента
// LASTITEM - последний элемент массива
// FIRSTITEM - первый элемент массива
 if index_max < index_min then
  begin
   // поменять местами index_max и index_min
  end;
   s2:= calculatesum(index_min, index_max);
   if index_min=FIRSTITEM and index_max=LASTITEM then
    // s1 - не существует
    // s3 - не существует
   else if index_min=FIRSTITEM then
    begin
    // s1 - не существует
    s3:= calculatesum(index_max, LASTITEM);
    end
   else if index_max=LASTITEM then
    begin
    s1:= calculatesum(FIRSTITEM, index_min);
    // s3 - не существует
    end
   else
    begin
     s1:= calculatesum(FIRSTITEM, index_min);
     s3:= calculatesum(index_max, LASTITEM);
    end;

кажысь так....
ps
стока строк ... чуть сам не запутался