Массивы, Please, help Опции

[Valkirie]

Вводится массив. Найти минимум из сумм 3-х его последовательных элементов. Например, для массива

1 3 4 6 7
данные суммы равны 8, 13 и 17, минимум равен 8.

Помогите, умираю

[Valkirie]

volvo
Спасибо огромное, без твоих идей наверное не разобралась бы.
Массив динамический, поэтому решение чуть-чуть другим вышло...

Код

var Mas1: array of integer;
var i,min,s:integer;
begin
SetLength(Mas1,ListBox1.Items.Count);
for i:=0 to ListBox1.Items.Count-1 do
Mas1[i]:=StrToInt(ListBox1.Items[i]);
min:=maxInt;
for i:=1 to Length(Mas1)-1 do
  begin
    s:=Mas1[i]+Mas1[i-1]+Mas1[i+1];
    if min>s then min:=s;
    end;
Label1.Caption:=FloatToStr(min);
  end;
end.

Не обращай внимания, что это Делфи, переписать я перепишу ;)
Спасибо, спас ;)