Дан целочисленный двумерный массив, размерности n х m, при n=3; m=3. Сформировать новый массив, состоящий из противоположных соответствующих элементов, то есть значение элемента А(n;m) заменить на значение элемента А (m;n). (pascal)

:

const n=3; m=3;

var im,nm: array [1. . n,1. . m] of integer;

i,j:integer;

begin

writeln('Исходный массив');

for i:=1 to n do

begin

for j:=1 to m do

begin

im[i,j]:=random(10);

write(im[i,j]:2)

end;

writeln

end;

writeln('Новый массив');

for i:=1 to n do

begin

for j:=1 to m do

begin

nm[i,j]:=im[j,i];

write(nm[i,j]:2)

end;

writeln

end

end.