В заданной матрице A(N, M) поменять местами строки с номерами К и Р

В заданной матрице A(N, M) поменять местами строки с номерами К и Р
Гость
Ответ(ы) на вопрос:
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы