Парамон 25 ноября 2019 в 08:25
Дан массив дробных чисел, необходимо отсортировать массив в порядке убывания близости к целым числам.
(Например. Даны числа: 7,5; 0,3; 9,23; 5,8. После сортировки: 5,8; 9,23; 0,3; 7,5)
Дан массив дробных чисел, необходимо отсортировать массив в порядке убывания близости к целым числам.
(Например. Даны числа: 7,5; 0,3; 9,23; 5,8. После сортировки: 5,8; 9,23; 0,3; 7,5)
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
ReadArrReal(Введите элементы массива:,ReadInteger(n=))
.Select(x-gt;(x,Frac(x)gt;0.51-Frac(x):Frac(x)))
.OrderBy(x-gt;x.Item2).Select(x-gt;x.Item1).Println
end.
Тестовое решение
n= 4
Введите элементы массива: 7.5 0.3 9.23 5.8
5.8 9.23 0.3 7.5
begin
ReadArrReal(Введите элементы массива:,ReadInteger(n=))
.Select(x-gt;(x,Frac(x)gt;0.51-Frac(x):Frac(x)))
.OrderBy(x-gt;x.Item2).Select(x-gt;x.Item1).Println
end.
Тестовое решение
n= 4
Введите элементы массива: 7.5 0.3 9.23 5.8
5.8 9.23 0.3 7.5
Компьютеры и вычисления
325
0
Для комментирования необходимо зарегистрироваться на сайте