I suppose that interactively means changing some parameters. For this, you can simply use Manipulate,
Manipulate[Column[{CompleteGraph[p], AdjacencyMatrix[CompleteGraph[p]]}], {p, 1, 50, 1}]
JaM
- 192
- 7