1. подсчитать время звучания звукового файла объемом 3.5 мбайт, содержащего стереозапись с частотой дискретизации 44 100 гц и разрядностью кода 16 бит

Объем = частота дискретизации  * время * разрядность кода * кол-во дорожек в монозаписи 1 дорожка, в стереозаписи 2. из формулы выводим формулу для времени время = объем / (частота дискретизации  * разрядность кода * кол-во дорожек) переводим объем в байты  3,5 мбайт = 3584 кбайт = 3670016 байт переводим разрядность в байты 16 бит = 2 байта считаем время t = 3670016 / (44100 * 2 * 2) = 3670016 / 176400 = 20,8 сек

Program mas2; const   n=5; type   mas=array[1..n]of real; var   sr,sum: real;   i: integer;   x: mas; procedure vvod_rand(var a: mas; n: integer); var   i: integer; begin   for i: =1 to n do   begin       a[i]: =random(-10,30);       write(a[i],' ');   end;   writeln; end; function sred(var x: mas): real; var   i: integer;   s: real; begin   s: =0;   for i: =1 to n do s: =x[i]+s;   s: =s/5;   sred: =s end; function summa(var x: mas): real; var   i: integer;   su: real; begin   su: =0;   for i: =1 to n do su: =su+x[i];   summa: =su; end; var a: mas; begin   vvod_rand(a,n);   writeln('sum=',summa(a));   writeln('sred=',sred(a)); end.

program znanija;

uses crt;

var n,k,sum,ch,nch: integer;

sa: real;

m: array[1..25] of integer;

begin

write('ведите n: '); readln(n);

for k: =1 to 25 do

begin

m[k]: =random(n);

sum: =sum+m[k];

if (m[k] mod 2 = 0) then

begin

ch: =ch+1;

end else

begin

nch: =nch+1;

end;

end;

sa: =sum/25;

writeln('среднее арихметическое - ',sa);

writeln('сумма чисел - ', sum);

writeln('количество чётных - ', ch);

writeln('количество не чётных - ', nch);

writeln('--числа--');

for k: =1 to 25 do

begin

write(m[k],', ');

end

end.