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

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  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= 2034 15 12 31 38 43 12 24 13 49 25 33 16 12 25 33 46 16 38 34Номера минимальных элементов (12): 3,7,14

//Pascal ABC.NET v3.1 сборка 1172Const n=5;Var ar:array[1..n] of integer; i,min:integer; sa:set of integer;begin min:=MaxInt; for i:=1 to n do  begin   readln(ar[i]);   if ar[i]<=min then    begin     if ar[i]=min then sa:=sa+[i] else sa:=[i];     min:=ar[i];    end;  end; writeln('Min=',min); writeln('Index:',sa);end.Пример ввода:98777Пример вывода:Min=7Index:{5,4,3}