Developing.ru

Oleg_Rus писал(а):в двумерном массиве найти сумму элементов находящихся на главной диагонали.

Код: Выделить всё

for i:=1 to n do
  for j:=1 to n do
    if i=j then summa:= summa+a[i, j];

в двумерном массиве найти сумму элементов находящихся на побочной диагонали.

Код: Выделить всё

for i:=1 to n do
  for j:=1 to n do
    if i+j=n+1 then summa:= summa+a[i, j];

может кто знает более оптимальные способы решения? если да то пожалуйста опубликуйте их для расширения кругозора посетителей. (во как загнул ))

summa:= 0;
for i:=1 to n do
  summa := summa + a [i, i];

summa:= 0;
for i:=1 to n do
  summa := summa + a [i, (n + 1 - i)];