Взаданной матрице 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

а) 1028

б) 484

в) 3076

г) 413

Объяснение: