===== PascalABC.NET =====
function MinMax(a: array of integer): (integer, integer);
begin
var min := Abs(a[0]);
var max := min;
for var i := 1 to a.High do
if Abs(a[i]) < min then
min := Abs(a[i])
else if Abs(a[i]) > max then
max := Abs(a[i]);
Result := (min, max)
end;
begin
var M := MatrRandom(5, 5, -50, 50);
M.Println(4);
var F := M.ElementsWithIndices
.Where(p -> p[2] >= p[1])
.Select(p -> p[0])
.ToArray;
F.Println;
var r := MinMax(F);
Println('Min=', r[0], ' max=', r[1])
end.
![[70б] матрица m [5,8] заполнить исходную матрицу случайными числами из диапазона от -50 до 50. вывес](/tpl/images/1026/7946/79e6f.jpg)
если ответ оказался правильным,отметить как лучший)