Классификация двухмерной графики

Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.

Задача №1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var a:=ArrRandom(31,-20,20); a.Println;
  Writeln('Средняя температура в оттепели: ',
    a.Where(x->x>0).Average:0:1,' град.')
end.

Тестовое решение
7 -9 -18 -8 14 -2 12 13 4 -18 13 -6 -8 6 -10 -8 20 -15 15 -2 17 20 19 -1 16 10 -7 9 -15 20 -20
Средняя температура в оттепели: 13.4 град.

Задача №2

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var x:=ArrRandom(ReadInteger('m='),1,99); x.Println;
  var sn:=x.Where((x,i)->i.IsEven).Sum;
  var i:=1;
  while i<x.Length do begin x[i]:=sn; Inc(i,2) end;
  x.Println
end.

Тестовое решение
m= 15
26 31 19 99 3 93 64 31 97 14 88 88 81 49 43
26 421 19 421 3 421 64 421 97 421 88 421 81 421 43