t_17_7_z_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
посчитать число ветвей от корня до ближайшего элемента Е (если Е нет в дереве, то вывести -1)}
procedure {number of branches in queue} NBinQ(t:tree; e:tet; var q:queue{integer}; var i:integer);
        begin
             if t^.elem=e then begin
                                    ВОЧЕРЕДЬ(q,i);
                               end
             else begin
                     i:=i+1;
                     if t^.left<>nil then NBinQ(t^.left);
                     if t^.right<>nil then NBinQ(t^.right);
        end;
function {min elem in queue} MinEinQ(var q:queue):integer;
        var min,el:integer;
        begin
             if q<>nil then do
               begin
                    min:=maxint;
                    while not(ПУСТОЧ(q)) do
                       begin
                             ИЗОЧЕРЕДИ(q,el);
                             if el<min then min:=el;
                       end;
                    MinEinQ:=min;
               end;
             else MinEinQ:=-1;
        end;
begin
   ОЧИСТОЧ(q);
   i:=0;
   {NBinQ; writeln(MinEinQ)}
end.