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.