Задана матрица размером n×m. Найти максимальный по модулю элемент матрицы

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (n,m):=ReadInteger2(Количество строк и столбцов в матрице:);

 Writeln(*** Исходная матрица ***);

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

 a.Println(4); Writeln(4*a.ColCount*-);

 Println(max =,a.ElementsByRow.MaxBy(t-gt;Abs(t)))

end.

#include lt;iostreamgt;

#include lt;cmathgt;

#include lt;algorithmgt;

int main()

{

size_t

 N, M;

std::cin gt;gt; N gt;gt; M;

int** arr = new int*[N];

for(int i = 0; i lt; N; i++)

 arr[i] = new int [M];

for(int i = 0; i lt; N; i++)

 for(int j = 0; j lt; M; j++)

  std::cin gt;gt; arr[i][j];

size_t max(abs(arr[0][0]));

for(int i = 0; i lt; N; i++)

 std::for_each(arr[i], arr[i]+M, [amp;max](autoamp; var)

 {

  if(abs(var) gt; max)

   max = abs(var);

 });

std::cout lt;lt; "Максимальный элемент по модулю: " lt;lt; max lt;lt; std::endl;

for(int i = 0; i lt; N; i++)

 delete[] arr[i];

delete[] arr;

}