t_17_7_b_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
посчитать число вхождений элемента Е в дерево}
procedure TinQ{treeinqueue}(T:tree; var q:queue);
      begin {перед вызовом нужно очистить очередь/создать пустую}
           ВОЧЕРЕДЬ(q,T^.elem);
           if T^.left<>nil then TinQ(T^.left;q);
           if T^.right<>nil then TinQ(T^.right;q);
      end;
function count(var q:queue;e:elem):integer;
       var el:elem; i:integer;
      begin
            i:=0;
            while not(ПУСТОЧ(q)) do
               begin
                    ИЗОЧЕРЕДИ(q,el);
                    if el=e then i:=i+1;
               end;
            count:=i;
      end;