Question

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

Answer 1

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

Answer 2

#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;

}