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