Var a:array[0..100] of integer; i:integer; max,min:integer; begin for i:=0 to 100 do begin if a[i]<a[min] then min:=i; if a[i]>a[max] then max:=i; end i:=a[max]; a[max]:=a[min]; a[min]:=i; end.
Из Cообщение "мальчик с тёмными волосами" содержит 2 бита следует: 2^2 =4 (количество мальчиков с тёмными волосами) Из Сообщение "девочка с тём волосами" - 3 бита следует: 2^3 = 8 (количество дев с тём волосами) 8 +4 =12 (количество детей с тёмными волосами) Вероятность того, что будет выбран ученик с тёмными волосами: p(т) =12/32=3/8 вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8 > 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам. ОТВЕТ 3 бита.
Из Cообщение "мальчик с тёмными волосами" содержит 2 бита следует: 2^2 =4 (количество мальчиков с тёмными волосами) Из Сообщение "девочка с тём волосами" - 3 бита следует: 2^3 = 8 (количество дев с тём волосами) 8 +4 =12 (количество детей с тёмными волосами) Вероятность того, что будет выбран ученик с тёмными волосами: p(т) =12/32=3/8 вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8 > 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам. ОТВЕТ 3 бита.
i:integer;
max,min:integer;
begin
for i:=0 to 100 do begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end
i:=a[max];
a[max]:=a[min];
a[min]:=i;
end.