Найти сумму четных элементов массива, имеющих четные индексы - Turbo Pascal (33799)
Формулировка задачи:
Ребята, помогите с задачей пожалуйста:
Дан целочисленный массив С из n эл-тов (n<=30). Нужно найти сумму четных элементов массива, имеющих четные индексы.
Решение задачи: «Найти сумму четных элементов массива, имеющих четные индексы»
textual
Листинг программы
For i:=1 to N do If (not Odd(C[i])) and (not Odd(i)) then Summ:=Summ+C[i]; Writeln(Summ);
Объяснение кода листинга программы
- Переменная
N
представляет собой количество элементов в массивеC
. - В цикле
for
переменнойi
присваивается значение от 1 доN
. - В условии
If
проверяется два условия:not Odd(C[i])
- элементC[i]
должен быть четным.not Odd(i)
- номер элементаi
должен быть четным.
- Если оба условия выполняются, то к переменной
Summ
прибавляется значениеC[i]
. - После выполнения цикла, значение переменной
Summ
выводится на экран с помощью функцииWriteln()
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д