T<span> := 5;
</span>x := 2;
y := 5<span>;
</span>
Program rok;
var a:array [1..30] of integer;
i,s,n:integer;
begin
s:=0;
n:=0;
randomize;
for i:=1 to 30 do
begin
a[i]:=random (25)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if (a[i]>0) then
s:=s+1;
if (a[i]=0) then
n:=n+1;
end;
writeln ('Количество
положительных чисел=',s);
writeln ('Количество
нулей=',n);
end.
Информация о погоде (вегодня весь день солнечно), данные (температура воздуха+25)
1F=1х16 в первой + 15х16 в нуливой=16+15=31
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
<span>Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает.
</span>