// 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->Abs(t)))
end.
#include <iostream>
#include <cmath>
#include <algorithm>
int main()
{
size_t
N, M;
std::cin >> N >> M;
int** arr = new int*[N];
for(int i = 0; i < N; i++)
arr[i] = new int [M];
for(int i = 0; i < N; i++)
for(int j = 0; j < M; j++)
std::cin >> arr[i][j];
size_t max(abs(arr[0][0]));
for(int i = 0; i < N; i++)
std::for_each(arr[i], arr[i]+M, [&max](auto& var)
{
if(abs(var) > max)
max = abs(var);
});
std::cout << "Максимальный элемент по модулю: " << max << std::endl;
for(int i = 0; i < N; i++)
delete[] arr[i];
delete[] arr;
}
