Лабы / Pascal.1.курс / part 1 / LABA2 / VAR16 / MOD1

unit mod1;
interface
uses global;
function max(var a:tar):integer;
function min(var b:tar):integer;
implementation
function max(var a:tar):integer;
var i,j,m:integer;
begin
m:=a[1,1];
for i:=2 to n do
for j:=2 to k do
if a[i,j]>m then m:=a[i,j];
max:=m;
end;

function min(var b:tar):integer;
var i,j,m:integer;
begin
m:=b[1,1];
for i:=2 to n do
for j:=2 to k do
if b[i,j]<m then m:=b[i,j];
min:=m;
end;
end.