Рассчитайте объем стереоаудиофайла длительностью 20 с при 16-битном кодировании и частоте дискретизации 32 кгц?

32 кгц и 16 бит означает, что каждую секунду происходит снятие 32000 уровней звука и каждое снятие кодирутся 16 битами - 2 байтами.

объем информации за 20с: 32000 * 20 * 2 = 1280000 байт = 1250 кбайт

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает