Работа с процедурами в Delphi - процедура для поиска min, max в массиве и обмена их местами

[kolia_y]

Помогите с задачей:
Дано 3 массива в которых 6, 7, 8 действительных числ соответственно.
Найти максимальный и минимальный элементы в массивах и поменять их местами.
За помощь буду благодарен!!!

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=70310

[Человек_Борща]

Поменять между массивами?

[type_Oleg]

Создать тип - динамический массив

type arRe=array of Double;

Описать 2 функции - поиск индекса мин. и макс. элемента в массиве.

function PoiskIndMax(ar:arRe):Integer;
function PoiskIndMin(ar:arRe):Integer;

Описать процедуру, которая меняет местами мин. и макс. элементы

procedure ChMinMax(var ar:arRe);

Внутри этой процедуры использовать функции PoiskIndMax, PoiskIndMax
Применить процедуру к каждому из массивов.

PS Имена подпрограмм можно конечно другие придумать.

[kolia_y]

Сообщение от Человек_Борща

Поменять между массивами?

Нет поменять местами max и min в каждом масиве.