Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
Так как мы получили 3 бита информации, достав одну синюю ручку, то количество событий =
или 8. Следовательно было минимум 8 синих ручек.
В коробке синие и красные, синих - 8, красных - 28, всего -
36.
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard