Question

на языке паскаль 2 задание пожалуйста

Answer 1

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

begin

 var (m, n) := ReadInteger2('Задай m и n:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println;

 // Задание 2

 Print('Max по строкам:');

 var MaxR := a.Rows.Select(p -> p.Max).ToArray;

 MaxR.Println;

 Print('Max по cтолбцам:');

 var MaxC := a.Cols.Select(p -> p.Max).ToArray;

 MaxC.Println;

end.