Вычислить суммУ квадратов эЛемЕнтов, Находящихся в массиве ** местах с номерами,кратными...

Question

Вычислить суммУ квадратов эЛемЕнтов, Находящихся в массиве на местах с номерами,кратными трём. Паскаль.

Answer 1

Program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
Const  MY_ARRAY: array [0 .. 10] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
Var  Accumulator, i: Integer;
begin
  Accumulator := 0;
  for i := Low(MY_ARRAY) to High(MY_ARRAY) do
    if i mod 3 = 0 then
      Accumulator := Accumulator + MY_ARRAY[i] * MY_ARRAY[i];
  Writeln('Сумма = ', Accumulator);
  Readln;
end.

Comments

ох, как сюда правильно код вставлять?