Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab4

program Lab4;
type
    {Массив:}
    m = array[0..9, 0..9] of word;
    
var
    mas : m;
    i, j, max, min: word;

begin
    randomize;
    
    {Генераци массива:}
    for i := 0 to 9 do 
        for j := 0 to 9 do 
            mas[i, j] := random(10);
    
    {Вывод массива:}
    writeln('Массив:');
    for i := 0 to 9 do begin
        for j := 0 to 9 do begin
            write(mas[i, j], ' ');
        end;
        writeln('');
    end;
    writeln('');

    {Поиск максимума:}
    max := mas[0, 0];
    for i := 0 to 9 do 
        for j := 0 to 9 do 
            if(mas[i, j] > max) then 
                max := mas[i, j];
    
    {Поиск минимума:}
    min := mas[0,0];
    for i := 0 to 9 do 
        for j := 0 to 9 do 
            if(mas[i, j] < min) then 
                min := mas[i, j];


    {Вывод максимума:}
    write('Максимум: ', max, '. Координаты: ');
    for i := 0 to 9 do 
        for j := 0 to 9 do 
            if(mas[i, j] = max) then 
                write('[', i, ', ', j, '] ');
    
    {Вывод минимума:}
    writeln('');
    write('Минимум: ', min, '. Координаты: ');
    for i := 0 to 9 do 
        for j := 0 to 9 do 
            if(mas[i, j] = min) then 
                write('[', i, ', ', j, '] ');

end.