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

[MegaByte]

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

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

[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 7:49