begin
var n := ReadInteger('Размер массива:');
var k := ReadInteger('Максимальное значение элемента:');
var a := ArrRandom(n, 0, k);
a.Println;
var b := ArrRandom(n, 0, k);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println;
k := c.Max;
var v := ArrFill(k + 1, 0);
for var i := 0 to c.High do
v[c[i]] += 1;
var d := 0;
for var j := 0 to k do
for var i := 0 to v[j] - 1 do
begin
c[d] := j;
d += 1
end;
c.Println
end.
Размер массива: 15Максимальное значение элемента: 4031 11 31 28 10 30 16 38 24 25 11 38 0 29 3531 36 6 35 15 2 13 34 10 6 37 14 32 31 1062 47 37 63 25 32 29 72 34 31 48 52 32 60 4525 29 31 32 32 34 37 45 47 48 52 60 62 63 72
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := SeqRandom(n, -10, 10).Select(t -> t = 0 ? 1 : t).ToArray;
b.Println;
var c := a.Zip(b, (p, q)-> p div q).ToArray;
c.Println;
Print('Нечетных элементов:');
a.Where(t -> t.IsOdd).Count.Print;
b.Where(t -> t.IsOdd).Count.Print;
c.Where(t -> t.IsOdd).Count.Println;
end.
n= 1372 94 79 3 15 -82 72 -72 14 -79 23 -48 26-6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1-12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26Нечетных элементов: 5 7 3
Общая вероятность равна произведению этих трех вероятностей, т.е. 1/36 × 1/35 × 1/34 = 1/42840.
Количество информации определим по формуле Хартли: I=-㏒₂P,
где Р - вероятность события.
I = -㏒₂(1/42840) = ㏒₂42840 ≈ 15.39 бита