// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,6,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var t:=a.ElementsWithIndexes.MinBy(x->x[2]); Writeln('Min: A[',t[0]+1,',',t[1]+1,']=',t[2]) end.