Найти значения минимального элемента одномерного целочисленного массива.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger(n=),10,50);
  a.Println;
  var m:=a.Min;
  Write(Номера минимальных элементов (,m,): );
  a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=m)
    .Select(x->x.Item2).Println(,);
end.

Тестовое решение:
n= 20
34 15 12 31 38 43 12 24 13 49 25 33 16 12 25 33 46 16 38 34
Номера минимальных элементов (12): 3,7,14