1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов
<span><em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.</span>
<u>Пример</u>
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526
Var a:integer;
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
<span>end.
</span>
По фоpмуле Хаpтли количество инфоpмации в битах = -log_2 p, где p --
веpоятность события. Стало быть, в данном случае веpоятность вытащить
зеленое яблоко pавна 1/4. То есть 1/4 всех яблок -- зеленые (а оставшиеся 3/4 - кpасные). Следовательно, всего яблок -- 48.