Вычислите сколько байтов занимает на cd одна минута звукозаписи ( частота дискретизации - 44000, разрядность - 16 битов ) . какова максимальная продолжительность звукозаписи на диске ёмкостью 700 мб ?

Частота·разрядность·время(60 сек.)=44000·16·60=42240000  бит(разделить на 8)=5280000  байт(разделить на 1024)=5156,25 кб=5мб время=объём/(частота*разрядность)   700мб=734003200байт 16бит=2байт =734003200/(44000*2)= 734003200/88000=8340,94сек=139мин.

Uses crt; var a: array[1..10]of integer; b: array[1..10]of integer; max,i,c,k: integer; beginfor i: =1 to 10 do a[i]: =random(20)-10; for i: =1 to 10 do if abs(a[i])> abs(max) then begin max: =a[i]; c: =i; end; for i: =1 to 10 do if (a[i]=max)and(i< > c) then begin b[i]: =i; k: =k+1; end; writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')'); write('номера таких же элементов: '); for i: =1 to 10 do if b[i]> 0 thenwrite(b[i],' '); writeln('их кол-во: (',k,')'); writeln; for i: =1 to 10 do write(a[i],' ') end.

Const  n = 10; var  i: byte;   min: real;   imin: integer;   a: array[1..n] of real; begin   writeln('введите числа');   for i : = 1 to n do     read(a[i]);   min : = a[1];   for i : = 2 to n do     if min > a[i] then min : = a[i];   for i : = 1 to n do     if a[i] = min then        imin : = i;   writeln('минимальное значение = ', min);   writeln('элемент = ', imin); end.