Предмет: Информатика,
автор: 11kuzya13
Дана последовательность из n действительных чисел.Найти порядковый номер и само число,которое наиболее близко к заданному числу.
(Можно помочь написать программку на Паскале)
Ответы
Автор ответа:
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.
Приложения:
![](https://files.topotvet.com/i/b30/b301bdf708e88ce42cccced1234036b6.jpg)
Похожие вопросы
Предмет: Алгебра,
автор: yakhin2008
Предмет: Алгебра,
автор: nynany
Предмет: Химия,
автор: Anbreo
Предмет: История,
автор: Vikacat134
Предмет: Математика,
автор: dashok21