Compact notations for multiple variables

Why does this work

Manipulate[ListPlot[{a[1],a[2],a[3]}], {a[1], 0, 1}, {a[2], 0, 1}, {a[3], 0, 1}]

But this doesn’t?

Manipulate[ListPlot[Array[a, 3]], {a[1], 0, 1}, {a[2], 0, 1}, {a[3], 0, 1}]

How do I rewrite this for $3 rightarrow 100$ without typing it out?

With[
    {arr = Array[a,3], control = Sequence@@Thread[{Array[a,3],0,1}]},
    Manipulate[ListPlot[arr],control]
]