Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Матрицы once again

Автор: Барак 8.12.2003 18:56

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

Автор: Serega 8.12.2003 20:20

элеметы главной диагонали:
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 9.12.2003 19:40

Ну тупняк:

Код

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

Автор: Nemo 9.12.2003 19:45

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

Код

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