Код решения и результат запуска программы находятся в приложении.
begin
var a := ArrRandom(7, 16, 40); a.Println;
var (ind, el) := a.Numerate.MinBy(x -> x[1]);
Print('index:', ind, 'element:', el)
end.
