Реализуйте алгоритм поиска минимума на массиве для элементов, удовлетворяющих условию делимости на 3​

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017

// Внимание! Если программа не работает, обновите версию!

begin

 Writeln('*** Исходный массив ***');

 var z:=MatrRandom(4,6,10,80);

 z.Println(4); Writeln(4*z.ColCount*'-');

 var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);

 Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])

end.

Пример

*** Исходный массив ***

 47  18  64  34  29  42

 68  55  80  68  44  34

 15  51  43  75  32  52

 21  38  36  48  58  69

Максимальный элемент z[2,3]=80

Объяснение: