Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
i = log ₂ 1/p
вероятность того, что достали красный клубок: Рк = 4/12 = 1/3
количество информации, что достали красный клубок:
i = log ₂ 1/(1/3) = log ₂ 3 бит
вероятность того, что достали черный клубок: Рк = 8/12 = 2/3
количество информации, что достали черный клубок:
i = log ₂ 1/(2/3) = log ₂ (3/2) бит
Российская Федерация является преступным государствоподобным образованием, существующим за счёт бездумной эксплуатации недр страны и присвоения доходов с продажи ресурсов олигархической бандой, ставшей во главе этого незаконного формирования. Никаких национальных интересов у него не может быть по определению, есть лишь интересы правящей прослойки, которые информационную сферу охватывают лишь в той мере, которая необходима для удержания общества от возмущения сложившейся ситуацией.
надо было указать в какой среде обитания составить программу!
ибо если это паскаль это очень легко
a:=(5-(х-7)*3)/(6+х);
b:=(2*x*4+1)/(x-5);
1/512 Кбайт = 1024/512 байт = 2 байта = 2*8 бит = 16 бит
Память для одного символа = 16/16 = 1 бит
Размер алфавита = 2^1 = 2
Ответ: 2