Дан массив D(7) определите минимальный элемент этого массива. Выведите на экран сам минимальный элемент и его индекс. Массив заполняется случайными числами от 16 до 40.

Код решения и результат запуска программы находятся в приложении.

begin

 var a := ArrRandom(7, 16, 40); a.Println;

 var (ind, el) := a.Numerate.MinBy(x -> x[1]);

 Print('index:', ind, 'element:', el)

end.