Найти сумму нечетных элементов массива - Turbo Pascal (29239)

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

Дан массив из 15 элементов. Найти сумму нечетных элементов.

Решение задачи: «Найти сумму нечетных элементов массива»

Листинг программы

for j := 1 to 15 do s := s + a[j] * a[j] mod 2;

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

В данном коде используется цикл for, который выполняется 15 раз. Внутри цикла переменная s инициализируется значением суммы квадратов всех элементов массива a. Затем, для каждого элемента массива a[j], значение переменной s увеличивается на произведение этого элемента на самого себя, взятого по модулю 2 (т.е. остаток от деления на 2). Таким образом, в результате выполнения данного цикла будет получена сумма всех нечетных элементов массива a.