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

program Lab7;

uses Lab6;

var
arrayMax, arrayMin, arrayLength, i, j:word;

begin
    arrayLength:=9;
    
    arrayCreate(arrayLength, 10);
    arrayMaxAndMin(arrayLength);
    arrayMaxAndMinWrite(arrayLength);
    
    arrayMax:=Lab6.max;
    arrayMin:=Lab6.min;

    writeln('');
    write('Координаты максимума: ');
    for i := 0 to arrayLength do
        for j := 0 to arrayLength do
            if(mas[i, j] = arrayMax) then
                write('[', i, ', ', j, '] ');
                 
    writeln('');
    write('Координаты минимума: ');
    for i := 0 to arrayLength do
        for j := 0 to arrayLength do
            if(mas[i, j] = arrayMin) then
                write('[', i, ', ', j, '] ');

end.