Матрица - Pascal (98663)

Формулировка задачи:

Дана матрица A, состоящая из n строк и n столбцов. Изменить матрицу, заменив каждый отрицательный элемент, лежащий выше главной диагонали, его обсолютной величиной. Найти также сумму элементов главной диагонали. (нужно оч простое решение и без random!)

Решение задачи: «Матрица»

textual
                            Листинг программы 
                        

                            sum:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  if i=j then sum:=sum+a[i,j];
  if (j<i)and(a[i,j]<0) then a[i,j]:=abs(a[i,j]);
 end;
                        

Оцени полезность:

12 голосов , оценка 3.833 из 5

Похожие ответы