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