Удвоение двумерных матриц при данном условии Опции

[MegaByte]

Дан массив x(n,m). Удвоить элементы тех строк массива на главной диагонали которых стоит отрицательные элементы.

Сообщение отредактировано: MegaByte - 18.05.2007 0:41

[мисс_граффити]

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Исправляй, иначе тема будет закрыта.

[Ozzя]

for i:=1 to n do
for j:=1 to n do
  if a[i,i]<0 then
     a[i,j]:=2*a[i,j];

Сообщение отредактировано: Ozzя - 18.05.2007 11:49

[MegaByte]

СПС .

[volvo]

Оззя, а на кой лишние сравнения?

for i:=1 to n do
  if a[i, i] < 0 then
    for j:=1 to n do a[i,j]:=2*a[i,j];