FindRoot for arbitrary number of equations?
Welcome to Wolfram Community! Please make sure you know the rules: https://wolfr.am/READ-1ST
The rules explain how to format your code properly. Images don't help other members to copy your code. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.
int = Integrate[1/(x^3 - 1), x]; Map[Framed, int, Infinity]
You can also embed notebook or attach notebook.
Maybe like this:
n = 10; Ep = Sin[\[Phi][m]] + Cos[\[Phi][m]] + \[Phi][2] + \[Phi][1] + Sin[\[Phi][m] - \[Phi][2]];(*Assumed function*) FindRoot[Table[Qkons\[Phi][m] = -D[Ep, \[Phi][m]] == 0, {m, 1, n}], Table[{\[Phi][m], 0}, {m, 1, n}]]