Сформируйте массив, содержащий суммы элементов столбцов матрицы, расположенные по убыванию

@Sergei188482 · Регистрация: 20.03.2017

Author24 — интернет-сервис помощи студентам

В заданном массиве А(N;N) определить сумму элементов в каждом столбце. Сформируйте одномерный массив, содержащий полученные суммы, расположенные по убыванию.
МОЯ ПРОГА

Pascal

program p12;
const
 n = 3;
 var
 a: array[1..n]of integer;
 m: array[1..n, 1..n] of integer;
 x, i, j: integer;
begin
randomize;
 for i := 1 to n do
for j := 1 to n do 
 m[i, j] := random(5);
for i := 1 to n do
begin
for j := 1 to n do 
write(m[i, j]:4);
writeln;
end;
for j := 1 to n do
begin
for i := 1 to n do
a[j] := a[j] + m[i, j];
end;
writeln;
for i := 1 to n do
begin
for j := i to n do
begin
if a[i] < a[j] then begin
x := a[i];
a[i] := a[j];
 a[j] := x; 
end;     
end;
write(a[i]:4);
end;
end.

НУЖНА ДРУГАЯ СОРТИРОВКА ЭЛ ПО УБЫВАНИЮ, ПОМОГИТЕ

@Hitoku · 22.05.2017, 17:19

Сообщение от Sergei188482

PascalABC.NET

Pascal

begin
  var n := ReadlnInteger('N =');
  var a := MatrRandom(n, n, -50, 50).Println;
  var b := a.Cols.Select(v -> v.Sum).OrderByDescending(v -> v).ToArray;
  write('Массив сумм: ', b.JoinIntoString);
end.

	22.05.2017, 17:19