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

unit Lab6;

interface

type
    {Массив:}
    m = array[0..9, 0..9] of word;
var
    mas : m;
    max, min: word;
    
    procedure arrayCreate(arSize, elSize : word);
    procedure arrayMaxAndMin(arSize: word);
    procedure arrayMaxAndMinWrite(arSize: word);
    
implementation

{Генерация массива:}
procedure arrayCreate;
    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 arrayMaxAndMin;
    var
        i, j : word;
    begin
        max := mas[0, 0];
        min := mas[0, 0];
        for i := 0 to arSize do 
            for j := 0 to arSize do begin
                if(mas[i, j] > max) then 
                    max := mas[i, j];
                if(mas[i, j] < min) then 
                    min := mas[i, j];
            end;
    end;

{Вывод максимума и минимума:}
procedure arrayMaxAndMinWrite;
    var
        i, j : word;
    begin
        writeln('Максимум: ', max);
        writeln('Минимум: ', min);
        
    end;
    
end.