Каждый из 12 элементов массива Р равен квадрату его индекса. Найти сумму этих квадраторв. (Составить алгоритм решения и программу)

Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно) Вот прога на паскале: program sym var p:array[1..12] of integer; s,i:integer; Begin s:=0; For i:=1 to 12 do p[i]:=i*i; //если нет уже готового массива For i:=1 to 12 do s:=s+p[i]; write(s) end. Ну тут кстати массив излишен, если надо просто найти сумму: program sym1 var s,i:integer; Begin s:=0; For i:=1 to 12 do s:=s+i*i; write(s) end. Я у себя не проверял, но должно работать)