Найти наибольший элемент массива размером МхN, элементы которого задаются датчиком...

Question

Найти наибольший элемент массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-25;19].

Answer 1

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Введите n и m: '); Read(n,m);
  var a:=MatrixRandom(n,m,-25,19);
  var max:=-26; // меньше возможного меньшего
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do begin
      Write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j]
      end;
    Writeln
    end;
  Writeln('Максимальный элемент равен ',max)
end.

Тестовое решение:
Введите n и m: 5 8
 -25  -3 -20  -8  -4 -21   9 -16
   0  17   9 -22  10  15  -2  11
  -1  17 -12 -15   0  -7  17 -16
 -22  -9 -18   4  -4  -9   4 -16
  -8 -17 -21  11  -4  -7 -12  13
Максимальный элемент равен 17