Дан массив t (m, n). отсортировать столбцы по убыванию их средних значений
124
238
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 procedure matprint(a: array[,] of integer); begin var maxcol: =length(a,1)-1; for var i: =0 to length(a,0)-1 do begin for var j: =0 to maxcol do print(a[i,j]); writeln end end; begin var m: =readinteger('кол-во строк: '); var n: =readinteger('кол-во столбцов: '); var t: =matrixrandom(m,n,10,99); // инициализация матрицы matprint(t); var a: =new real[n]; // массив для средних по столбцам for var j: =0 to n-1 do begin var s: =0; for var i: =0 to m-1 do s+=t[i,j]; a[j]: =s/m end; // cортированная последовательность индексов столбцов var ai: =a.select((x,i)-> rec(x, .select(x-> x.item2).toarray; // cоздаем промежуточный массив var u: array[,] of integer; setlength(u,m,n); for var j: =0 to n-1 do for var i: =0 to m-1 do u[i,j]: =t[i,ai[j]]; t: =copy(u); // вернем назад данные в исходный массив writeln; matprint(t); end. тестовое решение кол-во строк: 5 кол-во столбцов: 8 24 30 70 85 92 32 11 25 83 92 64 51 28 47 10 22 50 14 76 84 23 63 64 39 30 22 84 59 55 32 58 63 80 36 53 74 80 82 84 33 85 70 92 24 32 11 30 25 51 64 28 83 47 10 92 22 84 76 23 50 63 64 14 39 59 84 55 30 32 58 22 63 74 53 80 80 82 84 36 33
А) 7 (в записи числа есть 6) б) 11 (в записи числа есть a=10) в) 9 (в записи числа есть 8) г) 13 (в записи числа есть с=12)
Популярно: Информатика
-
youliya1606.10.2020 19:59
-
kristinakalash20.05.2022 17:37
-
Awesome708.03.2020 16:27
-
troft24.12.2022 23:48
-
anyayakubchick05.07.2020 10:40
-
kabulbekova0104.09.2020 18:31
-
dariababaeva115.11.2021 00:30
-
fur507.05.2022 18:01
-
НикаМарьям26.12.2022 19:36
-
ruslanpavlov819.05.2023 04:25