Plot with Wolfram Alpha Scientific Data

Now that Mathematica has already embedded Wolfram Alpha, so I'd like to plot a graph: "Air Density" - "Elevation".

I know that

yields

But I can't do that 10000 times. Is there any convenient way to do that? Such as Range[0,10000]?

One can just use StandardAtmosphereData[] instead:
ρ = Table[QuantityMagnitude[StandardAtmosphereData[Quantity[h, "Meters"], "Density"]],