Рассчитать информационный объем аудиофайла длительностью 4 секунды при качестве кодирования 8 битов и частотой дискретизации 46кгц

V  =  r  · t ·η  где  v  - информационный объем аудиофайла, r - качество кодирования, t  - время звучания аудиофайла, η - частота дискретизации => v= 8*4*(46*1000)= 1472000 бит 

Решение: формула для расчета размера  (в байтах)   цифрового аудио-файла:   a=d*t*i/8. для перевода в байты полученную величину надо разделить на 8 бит.  46 кгц =46 * 1000 гц =46000 гц a=d*t*i/8 =  46000 х 4 х 8 / 8 = 184000 байт.

Var a: array[1..20] of integer; i,max1,ind1,max2,ind2: integer; begin  randomize; for i: =1 to 20 do begin a[i]: =random(200)-100; write(a[i]: 4); end; writeln; max1: =a[1]+a[2]; for i: =2 to 9 do if a[i]+a[i+1]> max1 then  begin  max1: =a[i]+a[i+1]; ind1: =i; end; max2: =a[11]+a[12]; for i: =12 to 19 do if a[i]+a[i+1]> max2 then  begin  max2: =a[i]+a[i+1]; ind2: =i; end; write('сумма максимальна между ',ind1,' и ', ind1+1, ' элементом в первой половине и между  ',ind2,' и ',ind2+1,'  во второй половине массива'); end.

Наверное так uses crt; var       a, b, h, x, fx: real;       i, n: integer; begin       clrscr;       write('введите отрезок a,b и величину шага h =');       read(a, b, h);             writeln(' x ': 2, ' ', ' fx ': 5);             x : = a;       for i : = 1 to round(abs(b - a) / h) do       begin               fx : = cos(x) / sin(x) + 1;               writeln(x: 2: 5, ' ', fx: 5: 6);               x : = x + h;       end;             readkey; end.