Умножить все элементы массива, кратные 3, на его номер - Pascal

Узнай цену своей работы

Формулировка задачи:

2. Умножить все элементы массива, кратные 3, на его номер.

Решение задачи: «Умножить все элементы массива, кратные 3, на его номер»

textual
Листинг программы
for i:=1 to n do
 if a[i] mod 3 = 0 then
  a[i] := i;

Объяснение кода листинга программы

В данном коде происходит обработка массива a размером n. Для каждого элемента массива выполняется проверка на остаток от деления на 3 (a[i] mod 3 = 0). Если остаток равен нулю, то значение элемента умножается на его номер в массиве (a[i] := i). Пример:

  1. Для массива a размером 5:
    • Проверка для элемента a[1]: a[1] mod 3 = 0
    • Значение a[1] равно 1, так как 1 mod 3 = 0
    • Значение a[1] становится равным 1 * 1 = 1
    • Проверка для элемента a[2]: a[2] mod 3 = 0
    • Значение a[2] равно 2, так как 2 mod 3 = 0
    • Значение a[2] становится равным 2 * 2 = 4
    • Проверка для элемента a[3]: a[3] mod 3 = 0
    • Значение a[3] равно 3, так как 3 mod 3 = 0
    • Значение a[3] становится равным 3 * 3 = 9
    • И так далее...
  2. Код не использует вложенные списки.

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы