А переводишь в двоичную с\с =11110111
в тоже самое в двоичную с\с= 11111001
и смотришь какое подходит
ответ 4, проверяй))
Держи! Во втором варианте не учитывал что могут быть одинаковые имена, но разные фамилии и поэтому возможно некоторое нарушение в сортировке. Торопился, так как тебе видимо надо побыстрее. Но если надо, то реализую :)
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
2B_16 = X _10
11*16^0 + 2*16^1 = 11 + 32 = 43