Радиотелескоп пробует получать и анализировать сигналы из космоса. Разные шумы

Радиотелескоп пытается получать и рассматривать сигналы из космоса. Разные шумы переводятся в последовательность вещественных неотрицательных чисел, заданных с точностью до 1 знака после десятичной точки.

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

Задать свой вопрос
1 ответ
Явно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, так как наименьшие значения уменьшают творение.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),0,99).Select(t-gt;0.1*t).ToArray;
  a.Println.Where(t-gt;tgt;=1.0).Println
end.

Пример
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт