1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
Объем аудиофайла расчитывается так: <em><u> I = k*r*f*t ,</u> </em>
где k - количество каналов записи (моно - 1, стерео - 2);
f - частота дискретизации (кол-во отсчетов, запоминаемых за 1 секунду, измеряется в Гц);
r - глубина кодирования (сколько бит приходится на 1 отсчет);
t - время звучания
итак, нам дано:
k = 1 т.к. у нас моноаудиофайл
I = 30 мб =30*1024*1024*8 бит = 3*10*2²³ бит
r = 16 бит = 2⁴ бит,
f = 48 кГц = 48 000 Гц = 3*2⁴*10³ Гц,
нужно найти время t.
из формулы <em><u>I = k*r*f*t </u></em> выразим t
t = I/(k*r*f)
t = (3*10*2²³)/(1*2⁴*3*2⁴*10³)= (3*10*2²³)/(2⁸*3*10³) = 2¹⁵/10²= 327,68 с.
результат подозрительный, конечно...
Прогоняем через XOR соответствующие ячейки.
Логика такова: если цвет одинаковый, то 0, иначе - 1.
1 - Закрашено, 0 - не закрашено
![\left[\begin{array}{cccc}0&0&0&1\\ 0&1&1&1\\ 1&0&1&0\\ 0&0&0&0\\ 0&0&0&0\\\end{array}\right]](https://tex.z-dn.net/?f=+%5Cleft%5B%5Cbegin%7Barray%7D%7Bcccc%7D0%260%260%261%5C%5C+0%261%261%261%5C%5C+1%260%261%260%5C%5C+0%260%260%260%5C%5C+0%260%260%260%5C%5C%5Cend%7Barray%7D%5Cright%5D+)
Затем располагаем в порядке возрастания кол-ва закрашенных символов
![\left[\begin{array}{cccc}0&0&0&0\\ 0&0&0&0\\0&0&0&1\\1&0&1&0\\0&1&1&1\\\end{array}\right]](https://tex.z-dn.net/?f=+%5Cleft%5B%5Cbegin%7Barray%7D%7Bcccc%7D0%260%260%260%5C%5C+0%260%260%260%5C%5C0%260%260%261%5C%5C1%260%261%260%5C%5C0%261%261%261%5C%5C%5Cend%7Barray%7D%5Cright%5D)