2. Размер цифрового моноаудиофайла измеряется по формуле: A = D*T*i, где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение). 44,1 кГц = 44100 Гц A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт
3. Общее количество символов для записи номеров = 20+10=30 Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32). Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт Для хранения 50 номеров потребуется 50*5 байт = 250 байт
const n=40; var a:array [1..n] of integer; i,k:integer; begin Randomize; k:=0; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end; Writeln; Writeln('Четные элементы, кратные 3'); for i:=1 to n do if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end; Writeln; Writeln('Отобрано элементов: ',k) end.
const n=20; var a:array [1..n] of integer; i,imin:integer; begin Randomize; Writeln('Исходный массив'); imin:=1; for i:=1 to n do begin a[i]:=random(351)+20; Write(a[i],' '); if a[i]<a[imin] then imin:=i end; Writeln; Writeln('Минимальный элемент a[',imin,']=',a[imin]) end.
