дерево...

[Лиляля]

дан указатель Р1 на корень непустого дерева. Вывести сумму значений всех листьев данного дерева.

[Npwas]

Вот так!!!

TYPE
    {Тип Дерева} 
   TypeOfTree = integer;
   pTree = ^TNode;
   TNode = Record
     Data:TypeOfTree;
     Right,Left:pTree;
   end;

Var
  Root:pTree; // корень дерева

 {ПРОЦЕДУРА РАССЧЕТА СУММЫ ВСЕХ ЛИСТЬЕВ}
 PROCEDURE RasshListsSUM(Tree:pTree);
 BEGIN
  IF (Tree^.Right=nil) and (Tree^.Left=nil) Then //проверка лист или не лист
       listsSUM:=listsSUM+Tree^.Data
 END;

{ПРОЦЕДУРА ОБХОДА ВСЕГО ДЕРЕВА НАЧИНАЯ С ВЕРШИНЫ}
PROCEDURE RAB(Tree: pTree);
 BEGIN
   IF Tree<>nil Then
     Begin
       RasshListsSUM(Tree);
       RAB(Tree^.Left);
       RAB(Tree^.Right);
     End
 END;
  
PROCEDURE StartRasschet;
 BEGIN
    RAB(Root);
 END;

[Лиляля]

спасибо большое)