Question

Срочно нужна помощь, pascalabc.net

Answer 1

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