Дан массив дробных чисел, необходимо отсортировать массив в порядке убывания близости к целым числам.
(Например. Даны числа: 7,5; 0,3; 9,23; 5,8. После сортировки: 5,8; 9,23; 0,3; 7,5)

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  ReadArrReal('Введите элементы массива:',ReadInteger('n='))    .Select(x->(x,Frac(x)>0.5?1-Frac(x):Frac(x)))    .OrderBy(x->x.Item2).Select(x->x.Item1).Printlnend.Тестовое решениеn= 4Введите элементы массива: 7.5 0.3 9.23 5.85.8 9.23 0.3 7.5