// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,6,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; // последовательность не хранится в памяти Writeln('Max=',s.Max,', min=',s.Min) end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,6,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow; // последовательность не хранится в памяти
Writeln('Max=',s.Max,', min=',s.Min)
end.
Пример
*** Исходная матрица ***
55 8 -53 99 55 75
48 13 -57 -81 -82 94
22 7 53 14 -10 -21
-73 -55 -39 79 1 -35
Max=99, min=-82