Question

Дан двумерный массив размером nxn , заполненный целыми числами с клавиатуры. Поменять местами последнюю строку с последним столбцом. ( Паскаль)

Answer 1

PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println; Writeln(4*a.ColCount*'-');
  for var i:=0 to n-2 do Swap(a[n-1,i],a[i,n-1]);
  Writeln('*** Полученный массив ***'); a.Println
end.