![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Для заданного массива z1, z2, ..., zn найти максимальное произведение двух соседних элементов. Помогите пожалуйста написать программу...Очень надо...
|
#2
|
|||
|
|||
![]() А если подумать?
Отличий от поиска максимального элемента массива практически нет. Код:
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) |
#3
|
|||
|
|||
![]() Спасибо...Хотя если честно я не очень понял условие... И что такое Low(a)?
|
#4
|
|||
|
|||
![]() Ааа...Все, спасибо, разобрался...Кроме Low(a)...
|
#5
|
|||
|
|||
![]() Low(A) - возвращает индекс первого элемента массива, соответсвенно High(A) - последнего.
|
#6
|
|||
|
|||
![]() Спасибо, я уже разобрался...Всё гениальное-гениально просто)))
|