//PascalABC.NET версия 3.2, сборка 1389//Если программа не запускается, то обновите версиюfunction CreateArray(length: integer): array of integer;begin var a := new integer[length]; for var i := 0 to length - 1 do a[i] := Random(0, 100);// Println(a); Result := a;end;begin var arrays := new List<(char, array of integer)>(); arrays.Add(('a', CreateArray(15))); arrays.Add(('b', CreateArray(13))); arrays.Add(('c', CreateArray(08))); arrays.Add(('d', CreateArray(11))); arrays.Add(('e', CreateArray(14))); arrays.Add(('f', CreateArray(10))); arrays.Add(('g', CreateArray(09))); foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do begin Println(a.Item1, a.Item2.Min()); end;end.