М | В следующий раз делай название темы более информативным klem4 |
М | В следующий раз делай название темы более информативным klem4 |
var
root: ttree;
i: integer;
a: array[1 .. 50] of ttree;
p: ttree;
top: integer;
begin
root := nil;
for i := 20 to 30 do
additer(root, i);
p := root; top := 0;
while p <> nil do begin
writeln(p^.data);
inc(top);
a[top] := p;
p := p^.left;
if top > 0 then begin
p := a[top];
dec(top);
p := p^.right;
end;
end;
end.