Работа с процедурами в среде Pascal abc

[Максим Захарченко]

Дано несколько массивов чисел. Длины массивов заданы в варианте индивидуального
задания. Требуется в каждом массиве найти наибольший и наименьший элементы и
отобразить их на экране, затем все компоненты каждого массива возвести в квадрат и снова
найти наибольший и наименьший элементы. Вычисление максимальной и минимальной
величин оформить в виде процедуры, глобальные параметры в процедуре не использовать.
Ввести и обработать:

9) три двумерных массива, содержащие соответственно 2х5, 3х6 и 3х4 целых элементов без
знака;

[ZX Spectrum-128]

Поиск максимума/минимума
В процедуру оформите самостоятельно.

http://programmersforum.ru/showpost....82&postcount=2

[newerow1989]

type tA=array of array of integer;

procedure minmax(p:tA; znak:integer; var r:integer);
var i,j:integer;
begin
   r:=p[Low(p),Low(p[Low(p)])];
   For i:=Low(p) to High(p) do
      For j:=Low(p[i]) to High(p[i]) do
         If znak*r<znak*p[i,j] then
            r:=p[i,j];
end;

var a,b,c:tA;
    i,j,m1,m2:integer;
begin
   SetLength(a,2,5);
   SetLength(b,3,6);
   SetLength(c,3,4);
   Randomize;
   For i:=Low(a) to High(a) do
   begin
      For j:=Low(a[i]) to High(a[i]) do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=Low(b) to High(b) do
   begin
      For j:=Low(b[i]) to High(b[i]) do
      begin
         b[i,j]:=Random(21);
         Write(b[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=Low(c) to High(c) do
   begin
      For j:=Low(c[i]) to High(c[i]) do
      begin
         c[i,j]:=Random(21);
         Write(c[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   minmax(a,-1,m1);
   minmax(a,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   minmax(b,-1,m1);
   minmax(b,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   minmax(c,-1,m1);
   minmax(c,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   For i:=Low(a) to High(a) do
      For j:=Low(a[i]) to High(a[i]) do
         a[i,j]:=a[i,j]*a[i,j];
   For i:=Low(b) to High(b) do
      For j:=Low(b[i]) to High(b[i]) do
         b[i,j]:=b[i,j]*b[i,j];
   For i:=Low(c) to High(c) do
      For j:=Low(c[i]) to High(c[i]) do
         c[i,j]:=c[i,j]*c[i,j];
   minmax(a,-1,m1);
   minmax(a,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   minmax(b,-1,m1);
   minmax(b,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   minmax(c,-1,m1);
   minmax(c,1,m2);
   Writeln('min = ',m1,'  max = ',m2);
   Readln;
end.