Begin
var m:=ReadInteger('m = ');
var n:=ReadInteger('n = ');
Writeln('Исходная матрица:');
var a:=MatrRandom(m,n,10,21).Println;
Writeln('Измененная матрица:');
for var j:=0 to a.ColCount-1 do Swap(a[1,j],a[2,j]);
a.Print;
end.
Пример:
m = 5
n = 4
Исходная матрица:
16 17 14 17
21 20 12 19
11 16 14 19
14 20 12 18
11 20 17 14
Измененная матрица:
16 17 14 17
11 16 14 19
21 20 12 19
14 20 12 18
11 20 17 14