01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Заменить местами в матрице значения главной и побочной диагоналей

program ex2;

{Заменить местами в матрице значения главной и побочной диагоналей}

const nmax=10;

var i,j,k: integer;

var n: integer; {порядок матрицы}

var m: array[1..nmax,1..nmax] of integer;

begin

writeln('Введите порядок матрицы');

readln(n);

if n>nmax then

writeln('Заданный порядок матрицы больше максимального, равного ',nmax)

else

begin

writeln('Введите исходную матрицу');

for i:=1 to n do

for j:=1 to n do read(m[i,j]);

{Распечатка исходной матрицы}

writeln('Исходная матрица');

for i:=1 to n do

begin

for j:=1 to n do write(m[i,j]:4);

writeln

end;

{Замена местами диагоналей}

for i:=1 to n do

begin

k:=m[i,i]; m[i,i]:=m[i,n+1-i]; m[i,n+1-i]:=k

end;

{Распечатка результирующей матрицы}

writeln('Результирующая матрица');

for i:=1 to n do

begin

for j:=1 to n do write(m[i,j]:4);

writeln

end

end

end.