Предмет: Информатика, автор: 11kuzya13

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

Ответы

Автор ответа: BobbyFresnel
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.

Приложения:
Похожие вопросы
Предмет: Алгебра, автор: nynany
Предмет: Математика, автор: dashok21