t_17_8_g_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
рекурсивно найти наибольший элемент дерева}
procedure allin(t:tree; var q:queue);
     begin
          if t<>nil then ВОЧЕРЕДЬ(q,t^.elem);
          if t^.left<>nil then allin(t^.left,q);
          if t^.right<>nil then allin(t^.right,q);
     end;
procedure maxel(var q:queue);
    var max,el:tet;
    begin
          if not(ПУСТОЧ(q)) then ИЗОЧЕРЕДИ(q,max);
          while not(ПУСТОЧ(q)) do
            begin ИЗОЧЕРЕДИ(q,el);
                  if el>max then max:=el;
            end;
          write max;
    end;