Задана матрица a (n, n) действительных чисел. "перевернуть" в ней главную и побочную диагонали (переписать цифры в обратном порядке).

147

398

Посмотреть ответы 2

Ответы на вопрос:

12345578824828

Информатика

4,4(55 оценок)

//pascal abc.net 3.1 сборка 1256 const n=4; var ma: array[1..n,1..n] of integer; i,j: integer; begin randomize; writeln('matrix: '); for i: =1 to n do begin for j: =1 to n do begin ma[i,j]: =random(10); write(ma[i,j]: 4); end; writeln; end; for i: =1 to n div 2 do begin swap(ma[i,i],ma[n-i+1,n-i+1]); swap(ma[i,n-i+1],ma[n-i+1,i]); end; writeln('final matrix: '); for i: =1 to n do begin for j: =1 to n do write(ma[i,j]: 4); writeln; end; end.