Approximated (unsorted) square from a set of values
Mathematica, 91 bytes

n=RandomInteger@199+1
TableForm@Partition[Range@9~RandomChoice~n,Divisors@n~Nearest~Sqrt@n]


I hope I got this right:


Generate a random length between 1 and 200 (inclusive).
Generate a list of that length with numbers from 1 to 9 (inclusive).
Find one of the two divisors closest to the square root, with Divisors@n~Nearest~Sqrt@n.
Break the list into rows of that length.
Display the grid with TableForm.


Example run: