// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln; Writeln('Max=',a.ElementsByRow.Max) end.
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln;
Writeln('Max=',a.ElementsByRow.Max)
end.
Пример
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица ***
37 27 -8 -40 -85 -36 62 90
-60 -14 -18 0 -50 77 -19 -36
14 -98 -80 81 -8 83 84 26
-65 74 12 -77 -84 -4 -51 -93
94 34 45 23 -53 -55 55 -45
Max=94