Каждый из 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.

Я у себя не проверял, но должно работать)