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

program labor4;

type
    m = array[1..10, 1..10] of integer;
var
    i, j, min, max: integer;
    mas : m;
begin
    randomize;
    min := 1000;
    max := 0;
    
    for i := 1 to 10 do 
        for j := 1 to 10 do 
            mas[i, j] := random(100);

    for i := 1 to 10 do 
        for j := 1 to 10 do 
            if mas[i, j] < min then 
                min := mas[i, j];
    
    for i := 1 to 10 do 
        for j := 1 to 10 do 
            if mas[i, j] > max then 
                max := mas[i, j];
    
    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.