x = RandomReal[{0, 1}]
y = RandomReal[{0, 1}]
Point[{x, y}]
x = RandomReal[{0, 1}, 100]
y = RandomReal[{0, 1}, 100]
p = Table[{x[[i]], y[[i]]}, {i, 1, 100}]
r = Table[{Sqrt[(x[[i]] - x[[j]])^2 + (y[[i]] - y[[j]])^2]}, {i, 1, 100}, {j, 1, 100}]
MatrixForm[r]
Min[r]