Каждый из 12 элементов массива Р равен квадрату его индекса

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