01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Заменить местами в матрице значения главной и побочной диагоналей
.docprogram 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.