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

program Lab5;
type
    {Массив:}
    m = array[0..9, 0..9] of word;
var
    mas : m;
    arraySize, elementSize, max, min: word;
     
{Генерация массива:}
procedure arrayCreate(arSize, elSize : word);
    var
        i, j : word;
    begin
        randomize;

        for i := 0 to arSize do
            for j := 0 to arSize do
                mas[i, j] := random(elSize);
    end;

{Вывод массива:}
procedure arrayWrite(arSize: word);
    var
        i, j : word;
    begin
        writeln('Массив:');
        for i := 0 to arSize do begin
            for j := 0 to arSize do begin
                write(mas[i, j], ' ');
            end;
            writeln('');
        end;
    end;
     
{Поиск максимума:}
procedure arrayMax(arSize: word);
    var
        i, j : word;
    begin
        max := mas[0, 0];
        for i := 0 to arSize do
            for j := 0 to arSize do
                if(mas[i, j] > max) then
                    max := mas[i, j];
    end;
     
{Поиск минимума:}
procedure arrayMin(arSize: word);
    var
        i, j : word;
    begin
        min := mas[0, 0];
        for i := 0 to arSize do
            for j := 0 to arSize do
                if(mas[i, j] < min) then
                    min := mas[i, j];
    end;

{Вывод максимума:}
procedure arrayMaxWrite(arSize: word);
    var
        i, j : word;
    begin
        writeln('');
        write('Максимум: ', max, '. Координаты: ');
        for i := 0 to arSize do
            for j := 0 to arSize do
                if(mas[i, j] = max) then
                    write('[', i, ', ', j, '] ');
    end;
     
{Вывод минимума:}
procedure arrayMinWrite(arSize: word);
    var
        i, j : word;
    begin
        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;

begin
    arraySize := 9;
    elementSize := 10;
     
    arrayCreate(arraySize, elementSize);
    arrayWrite(arraySize);
    arrayMax(arraySize);
    arrayMin(arraySize);
    arrayMaxWrite(arraySize);
    arrayMinWrite(arraySize);
end.