Деревья (1 задачка), Деревья (1 задачка) Опции

[lenochka2005]

Пожалуйста помогите решить, а то в деревьях вообще "0" :

Если дерево двоичного поиска имеет количество листьев больше чем значение в корне, то заменить все значения не листьев на противоположные значения.

[volvo]

Значит так: сначала - как найти число "листьев":

Procedure LeafsCount(T: TTree; Var k: Integer);
  Begin
    If T <> nil Then
      Begin
        LeafsCount(T^.Left, k);
        If (T^.Left = nil) and (T^.Right = nil) Then Inc(k);
        LeafsCount(T^.Right, k)
      End
  End;

Ну, и теперь просто проверяем на заданное условие, и производим обход (если нужно)...

Procedure ChangeNonLeafs(T: TTree);
Begin
  If T <> nil Then
    With T^ Do Begin
      If (Left <> nil) or (Right <> nil) Then Data := - Data;
      ChangeNonLeafs(Left); ChangeNonLeafs(Right)
    End
End;

var 
  root: TTree;
  numLeafs: integer;

begin
  ... { заполнение дерева }
  LeafsCount(root, numLeafs);
  If root.Data < numLeafs
    Then ChangeNonLeafs(root);

  ... { выводим результат }
end.

Все недостающие процедуры (и принципы работы с деревьями) можно найти здесь:
FAQ: Бинарные деревья