Question

(55 баллов)(Pascal)
Заполнить исходную матрицу N[5,7] случайными числами из диапазона от -50 до 50. Вывести матрицу на экран. В одномерный массив Y записать min и max элементы каждого столбца матрицы. Вывести полученный массив на экран.

Answer 1

===== PascalABC.NET =====

begin

 var N := MatrRandom(5, 7, -50, 50);

 N.Println(4);

 var Y := new integer[2 * N.ColCount];

 for var j := 0 to N.ColCount - 1 do

 begin

   var s := N.Col(j);

   Y[2 * j] := s.Min;

   Y[2*j+1] := s.Max

 end;

 Y.Println

end.