Задача на сортировку массива. Опции

[Emeks]

Здравствуйте!Подскажите,пожалуйста, как решить задачу: реализовать процедуру, организующую поиск максимального значения в массиве целых чисел из 15 элементов на основе быстрого рекурсивного алгоритма.Без рекурсии знаю как,а как с рекурсией ее решить нет. Буду очень благодарен.

[volvo]

Без рекурсии знаю как,а как с рекурсией ее решить нет

Вот и покажи, как ты делаешь это без рекурсии...

на основе быстрого рекурсивного алгоритма

Рекурсия по определению медленнее итерации, так что быстрым как-раз будет итеративный алгоритм...

[Emeks]

Вот и покажи, как ты делаешь это без рекурсии...

Рекурсия по определению медленнее итерации, так что быстрым как-раз будет итеративный алгоритм...

Без рекурсии(просто программа поиска,с выводом номера элемента):

Programm Poisk;
var 
m:ARRAY[1..15] of real;
i:integer;
max:real;
t:integer;

BEGIN
FOR i:=1 TO 15 DO
BEGIN
Write('Введите элемент последовательности N',i);
Readln(m[i]);
End;
max:=m[1];
t:=1;
FOR i:=1 TO 15 DO
if m[i]>max then
begin
max:=m[i];
t:=i;
end;
Writeln('max=',max);
Writeln('Номер макс элемента',t);
Readln;
End.

.