List括弧の入れ子を調節するFlatten[ ]

Show[Graphics[Point[Table[{RandomReal[],RandomReal[]},{i,30}]],AspectRatio->Automatic,Frame->True]]

points=Table[{x,y},{x,10},{y,5}]

Flatten[points,1]

Show[Graphics[Map[Point,Flatten[points,1]], Axes->True,Frame->True]]

Show[Graphics[{PointSize[0.02],Red,Point/@Flatten[points,1]}, Frame->True]]