Бинарное дерево Опции

[Alerna]

Здравствуйте, у меня проблема с бинарным деревом. Мне надо посчитать сумму введённых элементов и их среднее значение. Как это можносделать? Спасибо за совет.

[Atos]

Нужна процедура обхода дерева.
Скажем, если нужна сумма элементов дерева {s изначально присваиваем  ноль}

Код

procedure Обход(D:Дерево; var s:real);
begin
if D непусто then
  begin
  Обход(правая ветвь D, s);
  Обход (левая ветвь D, s);
  s:=s+D.Data; {элемент в узле D}
  end;
end;

Конкретные детали зависят от реализации.