Дана матрица из n строк и n столбцов. Изменить часть матрицы, находящуюся под главной диагональю, следующим образом: если элемент A[ij] боль
Условие задачи:Дана матрица из n строк и n столбцов. Изменить часть матрицы, находящуюся под главной диагональю, следующим образом: если элемент A[ij] больше элемента A[ji], задать элементу A[ij] новое значение-значение полу суммы данных двух элементов. Найти также сумму элементов главной диагонали. Алгоритм может быть составлен с использованием единственного двукратного цикла..
program PascalGuru;
var A:array [1..50,1..50] of real; i,j,n:integer; summa:real;
begin write('N= '); readln(n);
for i:=1 to n do for j:=1 to n do begin write('A[',i,',',j,']='); readln(A[i,j]); end;
write ('Vot vvedennaya vami matrica A:'); for i:=1 to n do begin writeln; for j:=1 to n do write (A[i,j]:8:2); end; {******************************************}
for i:=1 to n do for j:=1 to n do if i>j then {выше главной диагонали} if A[i,j]>A[j,i] then A[i,j]:=(A[i,j]+A[j,i])/2;
writeln;writeln;
write ('Vot preobrazovannaia matrica A:'); for i:=1 to n do begin writeln; for j:=1 to n do write (A[i,j]:8:2); end;
summa:=0; for i:=1 to n do for j:=1 to n do if i=j then summa:=summa+A[i,j];