Матрицы once again Опции

[Барак]

Буду очень признателен если поможете с задачей: даны две матрицы А(5,5) и B(5,5). Увеличить в 5 раз все элементы той матрицы в которой сумма диагональных элементов наименьшая считая, что такая матрица одна. Особенно не знаю как найти сумму диагональных элементов!

[Serega]

элеметы главной диагонали:
i=j
элементы побочной диагонали:
i+j=6 (для матрицы 5 на 5)
сумма:

Код

for i:=1 to 5 do
 for j:=1 to 5 do
   if  (i=j)or(i+j)=6  then sum:=sum+a[i,j];

Сообщение отредактировано: volvo - 17.12.2004 18:03

[Nemo]

Ну тупняк:

Код

.........
for i:=1 to 5 do
  begin
       Sum1:=Sum1+a[i, i];
       Sum2:=Sum2+a[i, i];
   end;
...........

[Nemo]

Для главной и побочной диагонали:

Код

...
for i:=1 to  5 do
  begin
        SumMain:=SumMain+a[i, i];
        SumSecond:=SumSecond+a[i, 6-i];        
  end;
...