Взаданной матрице a(n, m) поменять местами строки с номерами к и р

olya341 olya341    1   20.08.2019 10:50    0

Ответы
Арсенал11 Арсенал11  05.10.2020 07:07
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  var k,p:integer;
  Write('Строки с какими номерами поменять? '); Read(k,p);
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a.SwapRows(k-1,p-1);
  Writeln('*** Матрица-результат ***');
  a.Println(4)
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
Строки с какими номерами поменять? 2 5
*** Исходная матрица [5,8] ***
 -79  16 -87 -77 -93  94 -21 -16
 -63 -35  58 -52 -89 -54 -32 -65
  16  23  72  99  39 -46  66 -80
 -85  62 -29 -14  95  69 -58  -5
 -70 -47 -25 -48  33  42 -82 -12

*** Матрица-результат ***
 -79  16 -87 -77 -93  94 -21 -16
 -70 -47 -25 -48  33  42 -82 -12
  16  23  72  99  39 -46  66 -80
 -85  62 -29 -14  95  69 -58  -5
 -63 -35  58 -52 -89 -54 -32 -65
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика