процедура, которая меняет Max и Min элементы дерева, процедура, которая меняет max и min элементы дерева Опции

[Слава]

Ребята помогите написать процедуру, которая меняет max и min элементы непустого дерева, все элементы которого различны!!

[Слава]

задача полностью звучит так :

Используя очередь или стек описать процедуру или функцию, которая : меняет местами max и min элементы непустого дерева, все элементы которого различны(ТЭД=real).

Да, я думаю речь идет об обычном упорядоченном бинарном дереве.

[volvo]

Используя очередь или стек описать процедуру или функцию, которая : меняет местами max и min элементы непустого дерева, все элементы которого различны

Зачем тут очередь, или стек - спрашивается? Без них все прекрасно делается:

procedure change_min_max(root: ttree);

  type what = (_min, _max);

  procedure get_extrem(find: what; p: ttree; var p_search: ttree);
  begin
    if p <> nil then begin

      if p_search = nil then p_search := p
      else if (p^.data > p_search^.data) = boolean(ord(find)) then p_search := p;

      get_extrem(find, p^.left, p_search); get_extrem(find, p^.right, p_search);

    end
  end;

var
  T: real;
  p_min, p_max: ttree;
begin
  p_min := nil; get_extrem(_min, root, p_min);
  p_max := nil; get_extrem(_max, root, p_max);

  T := p_min^.data; p_min^.data := p_max^.data; p_max^.data := T;
end;