// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
Print('Прочитано'); a.Println;
var b:=a.Where(x->x>0);
Print('Отобрано'); b.Println;
var f:=OpenWrite('out.txt');
foreach var e in b do Write(f,e,' ');
f.Close
end.
<u><em>Тестовое решение:</em></u>
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9
А) 1 работник - источник, 2 работник - приемник.
б) учитель - источник, ученики - приемник.
в) газета - источник, девочка - приемник.
г) 1 девочка - источник и приемник, 2 девочка так же источник и приемник.
Известно, что с помощью N бит можно закодировать 2N<span> различных чисел. Поскольку 2</span>6<span> < 87 < 2</span>7<span> и для каждого спортсмена число бит одинаково, то для записи каждого из 87 номеров необходимо 7 бит памяти. Поскольку промежуточную отметку прошли 64 участника, то информационный объем сообщения составит 64⋅7 = 448 бит = 56 байт.</span>