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

[Valkirie]

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

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

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

[volvo]

Valkirie
Когда-то же надо начинать
Тогда попробуй вот так:

Код

var
 j, A:integer;
 stop: boolean;
begin
repeat
ReadLn(A);
if a <> 0 then
 begin
   j := 2;
   stop := false;
   while (j <= 30) and (not stop) do
     if A=($0001 shl j) then
       begin
         writeln('>', A); stop := true
       end
     else inc(j, 2)
 end
until a = 0;
end.