// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('*** Исходный массив A ***');
var a := MatrRandom(6, 8, -99, 99);
a.Println(4);
Println(4 * a.ColCount * '-');
Println('*** Результирующий вектор B ***');
var b := a.Rows.Select(row -> row.Max).ToArray;
b.Println
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('*** Исходный массив A ***');
var a := MatrRandom(6, 8, -99, 99);
a.Println(4);
Println(4 * a.ColCount * '-');
Println('*** Результирующий вектор B ***');
var b := a.Rows.Select(row -> row.Max).ToArray;
b.Println
end.