Найти сумму элементов массива, которые имеют непарные индексы - Turbo Pascal
Формулировка задачи:
Найти сумму элементов которые имеют непарные индексы.
Решение задачи: «Найти сумму элементов массива, которые имеют непарные индексы»
textual
Листинг программы
Summ:=0; For i:=1 to MaxX For j:=1 to MaxY do If i<>j then Summ:=Summ+M[i,j];
Объяснение кода листинга программы
Summ := 0;
For i := 1 to MaxX
For j := 1 to MaxY do
If i <> j then Summ := Summ + M[i, j];