Question

Paskal
Дана целочисленная прямоугольная матрица m*n, заполненная случайными числами.
Среди сумм элементов столбцов матрицы найти наименьшую.

Answer 1

Код программы в загруженных файлах

d217f80ecdb60443f0dd19e21bf4e0dd.txt

516d13ba0761c93e47c86b4b97ad8b4a.pas

Answer 2

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

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Минимальная сумма по столбцам ',a.Cols.Select(t->t.Sum).Min)
end.