Дана матрица a[1..n,1..m] целых чисел. напишите программу, которая переставит столбцы матрицы а таким образом, чтобы элементы последней строки стали в убывающем порядке. для упорядочивания использовать метод сортировки посредством выбора и не использовать дополнительную матрицу. измененную матрицу вывести на экран.

//pascalabc.net 3.2 var m, n: integer; a: array of array of integer; procedure zam(a1, b1: integer); begin for var i: =0 to n-1 do begin a[i][a1]+=a[i][b1]; a[i][b1] : =a[i][a1]-a[i][b1]; a[i][a1]-=a[i][b1]; end; end; procedure sortselekt (); var max: integer; begin for var i: =0 to m-1 do begin max: =i; for var j: =i to m-1 do if a[n-1][max]< a[n-1][j] then max: =j; if i< > max then zam (i, max); end; end; procedure printmas (); begin for var i: =0 to n-1 do begin for var j: =0 to m-1 do write (a[i][j]: 4); writeln; end; end; begin n: =readinteger('n ='); m: =readinteger('m ='); setlength (a, n); for var i: =0 to n-1 do a[i]: =arrrandom (m, -99, 99); writeln ('первоначальная случайная матрица: '); printmas(); sortselekt (); writeln ('измененная матрица: '); printmas(); end.

пост очах газ Азії школі книгах школі узвіз швидше узнал книгах задачу будь ласка введіть дійсну електронну таблицю