Дан массив x(n,m). Удвоить элементы тех строк массива на главной диагонали которых стоит отрицательные элементы.
! | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
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];
СПС .
Оззя, а на кой лишние сравнения?
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];