Найти сумму положительных элементов среди элементов Ai с четными номерами - Turbo Pascal

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

Помогите :С В массиве чисел A1,A2....,An найти сумму положительных элементов среди элементов Ai с четными номерами.

Код к задаче: «Найти сумму положительных элементов среди элементов Ai с четными номерами - Turbo Pascal»

textual
...
Summ:=0;
For i:=1 to n do
  If (not Odd(i)) and (m[i]>0) then Summ:=Summ+m[i];
Writeln(Summ);
...

13   голосов, оценка 3.923 из 5


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