Зеркальное размещение элементов двумерного массива
Задан массив по размеру от 0 до 1000 mxn элементов. Вывести элементы массива в виде таблицы, после этого заменить все диагональные элементы на число, вводимой с клавиатуры. Остальные элементы зеркально разместить относительно второстепенной диагонали. Повторно вывести элементы в виде таблицы.
может кому-то пригодиться решение, то вот:
uses crt;
const
n=1000; m=1000;
type
matrixx=array[0..n,0.. m] of integer;
var
a:matrixx;
i,j:integer;
k:integer;
begin clrscr;
writeln('Начальный массив:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(' ',a[i,j],' ');
end;
writeln;
end;
writeln('Введите число');
readln(k);
for i:=1 to n do
begin
a[i,i]:=k;
a[i,m-i+1]:=k;
end;
writeln('Трансформированная матрица имеет вид:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=a[j,i];
write(' ',a[i,j],' ');
end;
writeln;
end;
end.