Найти сумму четных элементов массива, имеющих четные индексы - Turbo Pascal (33799)

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

Ребята, помогите с задачей пожалуйста: Дан целочисленный массив С из n эл-тов (n<=30). Нужно найти сумму четных элементов массива, имеющих четные индексы.

Код к задаче: «Найти сумму четных элементов массива, имеющих четные индексы - Turbo Pascal (33799)»

textual
For i:=1 to N do If (not Odd(C[i])) and (not Odd(i)) then Summ:=Summ+C[i];
Writeln(Summ);

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ