Помощь - Поиск - Пользователи - Календарь
Полная версия: Матрицы once again
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Барак
Буду очень признателен если поможете с задачей: даны две матрицы А(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];
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;
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.