Вычислить суммУ квадратов эЛемЕнтов, Находящихся в массиве на местах с номерами,кратными трём. Паскаль.
Вычислить суммУ квадратов эЛемЕнтов, Находящихся в массиве на местах с номерами,кратными трём. Паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы