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

[Emeks]

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

[volvo]

При чем здесь заявленная в названии темы сортировка - не понятно.. И почему ты пользовался Real, если речь идет о целочисленных элементах - тоже...

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

program Poisk;

function max(n: integer; var a: array of integer): integer;
var
  t: integer;
begin
  if n > 0 then begin
    t := max(n - 1, a); { <--- Рекурсия }
    if a[n] > a[t] then max:= n else max:= t
  end
  else max := 0
end;

const
  size = 15;
var
  m: array[1 .. size] of integer;
  i, index: integer;

begin
  for i := 1 to 15 do begin
    write('Введите элемент последовательности N', i);
    readln(m[i]);
  end;

  index := max(size - 1, m) + 1;
  writeln('Индекс = ', index, ' ; max = ', m[index]);
  readln;
end.

Сообщение отредактировано: volvo - 19.06.2008 15:58