Question

составьте программу формирования и вывода на экран одномерного массива состоящего из максимальных элементов столбцов двумерного массива заданного с помощью датчика случайных чисел

Answer 1

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив A[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(x->x.Sum);
  b.Println;
end.

Пример
Количество строк в массиве: 7
Количество столбцов в массиве: 10
*** Исходный массив A[7,10] ***
  38  21  17  35  46 -38 -43  20 -38  47
   5   5   1  20  22 -12 -30 -21 -41   3
 -42   3  21 -25  18 -18  -7  21 -44  25
  -1  50  21  -1  23  49   9 -17 -32  47
  36 -44  46   7  48  -9 -35 -29 -48  35
  19  -6 -38  12 -17 -16  50  -9 -34  13
  20 -13  13 -12  -2   5  35 -48  47  23
----------------------------------------
75 16 81 36 138 -39 -21 -83 -190 193