Question

Дана последовательность из n действительных чисел.Найти порядковый номер и само число,которое наиболее близко к заданному числу.
(Можно помочь написать программку на Паскале)

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandomReal(n, -10, 10);

 a.Println;

 var x := ReadReal('Что ищем?');

 var m := a.Select((v, i) -> (Abs(v - x), i)).MinBy(p -> p[0])[1];

 Println(a[m]);

end.