[FaRiK]

Для заданного массива z1, z2, ..., zn найти максимальное произведение двух соседних элементов. Помогите пожалуйста написать программу...Очень надо...

[lmikle]

А если подумать?
Отличий от поиска максимального элемента массива практически нет.

Код:

procedure GetMaxMul(A : Array Of Integer; var Mul, Idx : Integer);
var
  I : Integer;
begin
  Mul := 0;
  Idx := 0;
  For I := Low(A) To High(A) - 1 Do
    If A[i] * A[I+1] > Mul Then
      begin
        Mul := A[i] * A[I+1];
        Idx := I;
      end;
end;

параметры:
A : [входной] массив целых чисел
Mul : [выходной] макс. произведение
Idx : [выходной] индекс первого числа в паре макс. произведения (byltrc второuj = Idx + 1)

[FaRiK]

Спасибо...Хотя если честно я не очень понял условие... И что такое Low(a)?

[FaRiK]

Ааа...Все, спасибо, разобрался...Кроме Low(a)...

[lmikle]

Low(A) - возвращает индекс первого элемента массива, соответсвенно High(A) - последнего.

[FaRiK]

Спасибо, я уже разобрался...Всё гениальное-гениально просто)))