Умножить все элементы массива, кратные 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).
Пример:
- Для массива
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
- И так далее...
- Код не использует вложенные списки.