16 бит гц * (44.1 кГц * 1000) * (5 мин * 60) сек = 211680000 бит вес до сжатия.
(1 мбит сек * 1000 000) бит сек * 42.336 сек = 42336000 бит вес файла после сжатия.
<span>211680000 бит был / </span>42336000 бит стал <span> = 5 раз.
</span>
коэффициент 5 к 1.
Ответы на некоторые вопросы лучше не знать... Собственно, странная задача, вот определить, чётное ли получится число можно, а вот посчитать - только калькулятором
Const n=10;
var a:array[1..n] of real;
i,k1,k2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=10*random-5;
write(a[i]:5:2,' ');
end;
writeln;
k1:=0; k2:=0
for i:=1 to n do
if a[i]>0 then k1:=k1+1 else k2:=k2+1;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Пример:
Массив A:
-4.38 -2.39 -0.58 1.36 2.48 -4.49 -3.41 -0.04 0.20 2.94
k1 = 4 k2 = 6