Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (альтернатива) / L (6)

unit labor6;

interface

type
m = array[1..10, 1..10] of integer;
var
i, j, min, max: integer;
mas : m;

procedure masMake;
procedure masMinAndMax;
procedure masPrint;

implementation

procedure masMake;
begin
randomize;
for i := 1 to 10 do
for j := 1 to 10 do
mas[i, j] := random(100);
end;

procedure masMinAndMax;
begin
min := 1000;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] < min then
min := mas[i, j];

max := 0;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] > max then
max := mas[i, j];

end;


procedure masPrint;
begin
write('Min = ');
writeln(min);

write('Max = ');
writeln(max);

end;

end.