5 бит.
Фальшивых монет может быть от 0 до 16 - всего 17 вариантов. 4 бит недостаточно, т.к. 2^4 = 16 < 17; а 5 бит хватит: 2^5 = 32 > 17
Визуализация информации или доступность(в чём я сомневаюсь)
begin
var arr := arrRandom(10, -10, 10);
write('Исходный массив: ');
foreach var e in arr do write(e : 4);
writeln();
writeln('Сумма положительных элементов: ',
arr.Where(e -> e >= 0).Sum(e -> e));
writeln('Сумма чётных элементов: ',
arr.Where(e -> e mod 2 = 0).Sum(e -> e));
writeln('Сумма первых 5 элементов: ',
arr.Take(5).Sum(e -> e));
end.