Question

Создайте проект для нахождения максимального и минимального элементов двумерного массива. Используйте процедуру, аргументом которой является массив, результатом- два искомых числа.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

procedure MaxMin(m:array[,] of integer; var mx,mn:integer);
begin
  var s:=m.ElementsByRow;
  (mx,mn):=(s.Max,s.Min)
end;

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var max,min:integer;
  MaxMin(a,max,min);
  Writeln('Max=',max,', min=',min)
end.