Something like this?

In[28]:= vars = Table[Symbol["dddd" <> ToString[i]], {i, 1, 10}]

Out[28]= {dddd1, dddd2, dddd3, dddd4, dddd5, dddd6, dddd7, dddd8, \
dddd9, dddd10}

In[29]:= values = Table[i*3, {i, 1, 10}]

Out[29]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}

In[31]:= MapThread[Set[#1, #2] &, {vars, values}]

Out[31]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}

In[33]:= vars

Out[33]= {3, 6, 9, 12, 15, 18, 21, 24, 27, 30}

or in one line, you need to first evaluate the Symbols:

Table[Evaluate[Symbol["dddde" <> ToString[i]]] = i*3, {i, 1, 10}]

Regards