В заданной матрице 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
Не нашли ответ?
Похожие вопросы