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

[Valkirie]

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

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

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

[volvo]

Valkirie
Тогда другой вопрос - сколько чисел из введенных могут быть четной степенью двойки (в Паскале нет динамических массивов - так что нужно конкретное число)... Подставь его вместо 256 в maxPower.

Код

const
 maxPower = 256;

var
 numbers: array[1 .. maxPower] of integer; {можешь изменить на longint если нужно работать с большими числами}

 j, A:integer;
 stop: boolean;
 counter: Integer;
begin

counter := 0;
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
         inc(counter); numbers[counter] := A; stop := true
       end
     else inc(j, 2)
 end
until a = 0;

writeln('results');
for j := 1 to counter do
 writeln(numbers[j]);
end.