Для каждого элемента массива определить, сколько раз в нем встречается его минимальная цифра - PascalABC.NET - Ответ 7133879

{$reference System.Core.dll}
uses System.Linq, System.IO;
 
function MinDigitCount(n : integer) : integer;
begin
  var min_digit : char := n.ToString().ToCharArray().Min();
  result := n.ToString().Split(min_digit).Length - 1;
end;
 
var res : array of string := new string[2];
begin
  Randomize();
  var n : integer := integer.Parse(&File.ReadAllText('d:\test\input.txt'));
  var arr := Enumerable.Range(1, n).Select((i : integer) -> Random(5000)).ToArray();
  
  res[0] := string.Join(' ', System.Array.ConvertAll(arr, (i : integer) -> IntToStr(i)));
  arr := arr.Select((i : integer) -> MinDigitCount(i)).ToArray();
  res[1] := string.Join(' ', System.Array.ConvertAll(arr, (i : integer) -> IntToStr(i)));
  &File.WriteAllLines('d:\test\output.txt', res);
end.