var
i,j,tmp:integer;
T:array[1..4,1..4]of integer;
BEGIN
randomize;
for i:=1 to 4 do
for j:=1 to 4 do T[i,j]:=random(10); {загружаем матрицу }
writeln('Исходная матрица T:'); {выводим на экран }
for i:=1 to 4 do
begin
for j:=1 to 4 do write(' ',T[i,j]);
writeln;
end;
for i:=1 to 4 do {меняем столбцы местами}
begin
tmp:=T[i,2];
T[i,2]:=T[i,4];
T[i,4]:=tmp;
end;
writeln('Матрица T, после обмена 2-го с 4-м столбцом:');
for i:=1 to 4 do {выводим на экран}
begin
for j:=1 to 4 do write(' ',T[i,j]);
writeln;
end;
readln;
END.