Question

[70б] Матрица M [5,5]
Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывести на экран.
В одномерный массив F переписать элементы верхней треугольной. Вывести полученный массив на экран и найти в нём и найти min и max по модулю элементы.

Answer 1

===== 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.