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

[Valkirie]

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

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

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

[volvo]

Valkirie
Не умирай ...

Код

const
 n = 5;
 a: array[1 .. n] of integer =
   (1, 3, 4, 6, 7);

var
 i, j, s: integer;
 min: integer;
begin
 min := maxInt;
 for i := 1 to n - 2 do
   begin
     s := 0;
     for j := i to i + 2 do
       s := s + a[j];
     if min > s then min := s
   end;

 writeln('min = ', min)
end.

Только проверь, я не компилировал...

P.S. Если массив A будет длиннее, можно сделать так:

Код

const
 n = 11;
 a: array[1 .. n] of integer =
   (1, 3, 4, 6, 7, 2, 1, 4, 3, 2, 1);

var
 i, s: integer;
 min: integer;
begin
 s := 0;
 for i := 1 to 3 do
   s := s + a[i];
 min := s;

 for i := 4 to n do
   begin
     s := s - a[i-3]+a[i];
     if min > s then min := s
   end;

 writeln('min = ', min)
end.

Сообщение отредактировано: volvo - 2.12.2004 18:17