PascalDelphi / Многие готовые лабы за 1&2 сем. от Колесниковой М.Д. / DvDinMas / UnitPP

unit UnitPP;
 interface

type vec=array of integer;
     matr=array of vec;
var  a:matr;
     m,n:integer;

procedure maxel(n:integer;x:vec;var max,imax:integer);
procedure minel(n:integer;x:vec;var min,imin:integer);

 implementation


{----------------------------------------------------------}
procedure maxel;
 var i:integer;
 begin max:=x[0]; imax:=0;
   for i:=0 to n-1 do
    if x[i]>max then begin max:=x[i];imax:=i end
 end;
{-----------------------------------------------------------}
procedure minel;
 var i:integer;
 begin min:=x[0]; imin:=0;
   for i:=0 to n-1 do
    if x[i]<min then begin min:=x[i];imin:=i end
 end;
{-----------------------------------------------------------}

end.