Draw a circle and an inner circle
Graphics[{Circle[{0, 0}, 1], Circle[{0, -0.5}, 0.5]}]
Draw 10 circles which has center (i,i) and i is in {1,10}
Graphics[Table[Circle[{i, i}, 0.5], {i, 10}]]
Connect 10 points which is at (i,i)
data = Table[{i, i}, {i, 10}] ListLinePlot[data] Or: Graphics[Line[data]]
ListLinePlot[{{1, 1}, {2, 3}, {3, 2}, {4, 5}, {5, 4}}]
Draw all random points as circles
Graphics[Table[Circle[RandomInteger[100, 2]], 200]]
Draw two 3D spheres
Graphics3D[{Sphere[{0, 0, 0}], Sphere[{0, 2, 0}]}]
Make 10 concentric circles with random colors
circles = Table[Style[Circle[{0, 0}, r], RandomColor[]], {r, 1, 10}] Graphics[circles] 
Create 5 × 5 number grid
Grid[Table[(i - 1)*5 + j, {i, 5}, {j, 5}]]
Visualize values in an array. Larger values are shown darker.
ArrayPlot[Table[(i - 1)*5 + j, {i, 5}, {j, 5}]]
Make a line in 3D that goes through 50 random points with integer coordinates randomly chosen up to 50
Graphics3D[Table[Point[RandomInteger[50, 3]], 50]]
Graphics3D[Line[Table[RandomInteger[50], 50, 3]]]
