// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
*** Исходный массив ***
-30 55 92 98 96 29
-41 -11 -94 72 -3 -91
64 48 10 10 -85 91
Min: A[2,3]=-94