Информатика [РТФ, Андреев, 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.