Моно (1) * кодирование (16) * частота дискретезации (32 * 1000(гц)) * t(сек) = 625 * 2^13 бит
t=(625*2^13)/(1000*2^5*2^4)
t = 10 сек
Вроде так, если нигде не ошибся. Когда без калькулятора считаешь работай со степенями 2; и 1000 можно представлять как 2^10 = (1024), если есть варианты ответа, погрешность не большая
2^x*2^y=2^(x+y)
2^x/2^y=2^(x-y)
16000*24*90*4 = 138240000бит = 17280000 байт = 16875 килобайт = 16,47 мбайт
Program rp1;
uses crt;
var a: array [1..15] of integer; i: integer;
begin
clrscr;
randomize;a[i]:=random (41)-20;
writeln ('massiv ');
for i:=1 to 15 do
write (a[i], ' ');
for i:=1 to 15 do
if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]);
writeln ('novij massiv ');
for i:=1 to 15 do
write (a[i], ' ');
end.