Https://kpolyakov.spb.ru/school/blockly/turtle_loop.html?level=9
решить

import random

a = [0] * 4  

for i in range(4):  

   a[i] = [0] * 4

mi = 1

mj = 1

print("Матрица A:")

for i in range (4):

   for j in range (4):

       a[i][j] = random.randint(10,99)

       if a[i][j]>a[mi][mj]:

           mi = i

           mj = j

       print("%3d" % (a[i][j]),end="")

   print()

print("Максимум: A[{0},{1}] = {2}".format(mi+1,mj+1,a[mi][mj]))

Объяснение:

Создаём матрицу заполненную 0

Задаём начальные значения максимальных индексов

Заполняем матрицу случайными числами, ищем максимальные индексы и выводим элементы на экран

Выводим максимальные индексы и значение элемента

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
  Result:=Чис=1
end;

begin
  for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
  Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7