Определите информационный объем сообщений《в 1948 году клод шеннон впервые предложил ввести понятие бит - id839899820200622 от gels5344Inetka 22.06.2020 04:59

Question

Информатика: Определите информационный объем сообщений《в 1948 году клод шеннон впервые предложил ввести понятие бит 》

gels5344Inetka · Accepted Answer

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

function bsearch(a:array of integer; x:integer):integer:=a.FindIndex(t->t<x);

begin
var P:=ArrRandom(ReadInteger('n='),-50,50).OrderByDescending(t->t).ToArray;
P.Println;
var x:=ReadInteger('x=');
var i:=bsearch(P,x)+1;
if i>0 then Writeln('Индекс первого элемента, меньшего x, равен ',i)
else Writeln('Все элементы больше х')
end.

Пример
n= 13
47 36 26 25 17 6 -8 -11 -23 -29 -31 -39 -39
x= -10
Индекс первого элемента, меньшего x, равен 8

Определите информационный объем сообщений《в 1948 году клод шеннон впервые предложил ввести понятие"бит"》

MOGZ ответил