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

program labor5;

type
    m = array[1..10, 1..10] of integer;
var
    i, j, min, max: integer;
    mas : m;
    
procedure masMake();
    begin
        for i := 1 to 10 do 
            for j := 1 to 10 do 
                mas[i, j] := random(100);
    end;
    
procedure masMin();
    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];
    end;
    
procedure masMax();
    begin
        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('Сoordinates of min: ');
        for i := 1 to 10 do 
            for j := 1 to 10 do 
                if(mas[i, j] = min) then begin
                    write('(');
                    write(i);
                    write(', ');
                    write(j);
                    write(') ');
                end;
        
        writeln(' ');
        write('Max = ');
        writeln(max);
        write('Сoordinates of max: ');
        for i := 1 to 10 do 
            for j := 1 to 10 do 
                if(mas[i, j] = max) then begin
                    write('(');
                    write(i);
                    write(', ');
                    write(j);
                    write(') ');
                end;
    end;
    
begin
    randomize;
    
    masMake();
    masMin();
    masMax();
    masPrint();
end.