Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (альтернатива) / L (7)

program labor7;

uses labor6;

var
masMax, masMin, i, j:word;

begin
masMake;
masMinAndMax;
masPrint;

masMin:=labor6.min;
masMax:=labor6.max;

write('Coordinates of min: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = masMin) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;

writeln(' ');
write('Coordinates of max: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = masMax) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;

end.