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

program labor7;

uses labor6;

var
masMax, masMin, i, j:word;

begin
    masMake;
    masMinAndMax;
    masPrint;
    
    masMin:=labor6.min;
    masMax:=labor6.max;

    write('Coordinates of min: ');
    for i := 1 to 10 do 
        for j := 1 to 10 do 
            if(mas[i, j] = masMin) then begin
                write('(');
                write(i);
                write(', ');
                write(j);
                write(') ');
            end;
        
    writeln(' ');
    write('Coordinates of max: ');
    for i := 1 to 10 do 
        for j := 1 to 10 do 
            if(mas[i, j] = masMax) then begin
                write('(');
                write(i);
                write(', ');
                write(j);
                write(') ');
            end;

end.