Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (txt) / 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.