INPUT n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = INT(RND * 20) - 10
IF a(i) < 0 THEN s = s + 1
PRINT a(i); " ";
NEXT i
PRINT
PRINT s
Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(36)+10;
writeln('a[', i, '] = ', a[i]);
end;
for i:=2 to 10 do
if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1;
writeln('Число соседних четных пар: ', s);
<span>end.</span>
Для кодирования 65536 уровней громкости сигнала необходимо такое количество битов, которое могло бы принимать 65536 различных комбинаций.
65536 это
, значит нам необходимо 16 битов (2 байта).
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text