Program abc;
const m=2;
var
a: array [1..m,1..m] of integer;
d, b, c, j, i :integer;
begin
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for j:=1 to m do
b:=a[1,j];
for i:=1 to m do
begin
d:=a[1,j];
a[1,j]:=a[1,m];
a[1,m]:=a[1,j];
end;
writeln('a[',i,',',j,']=',a[i,j]);
Матрица. Паскаль.
Дана матрица. Поменять местами i-тый столбец c j-той строкой матрицы.
И выводить на экран - двумя циклами. Как в начале.