Никак не могу додуматься как определить среднюю высоту дерева.
Знаю что для вычисления необходимо использовать 2 функции. 1 -функция определяющая сумму длин путей от корня до вершины на каждом уровне дерева назовем её Level, 2- непосредственно вычисляет среднюю высоту пусть будет AVsize.
Вот что удалось
Фукция вычисления высоты дерева
Код
function AVsize(t:tTree; Level: integer):integer
if t=nil then
AVsize:=0
Else Avsize:=Level+AVsize(t.left, Level+1)+AVsize(t.right, Level+1)
End;
Вот чтото в этом роде кажется но я никак не могу функцию level написать
