Заполнить матрицу из 3 строк и 4 столбцов случайными числами в интервале [-10,10] и вывести ее на экран. найти в матрице максимальный и минимальный элемент.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,3,-10,10); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; Writeln('min=',s.Min,', max=',s.Max) end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,3,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('min=',s.Min,', max=',s.Max)
end.
Пример
*** Исходная матрица ***
-10 -10 -9
-8 -2 -2
-1 -2 -5
-6 6 -5
min=-10, max=6