<span>Пусть размер музыкального файла X, тогда скорость канала А ' x/30 '. Тот же файл в пункте Б, разрешение увеличили в два раза т.е будет x*2, а дискритизацию уменьшили в 1,5 раза, тогда (x*2)/1,5 это объем файла после всех процедур сжатия. Так как скорость в пункте Б больше в 4 раза, чем в А(X/30), тогда скорость в Б будет 4*(x/30) т.е (4x)/30. Ну и теперь стандартно объем после всех процедур (2x/1,5) поделим на скорость т.е (4x)/30, можно наглядно все записать, в результате получится 10.</span>
const n=10;
var a:array[1..n] of integer;
i: integer; p: longint;
begin
writeln('Введите элементы массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do p:=p*a[i];
writeln('p = ',p);
end.
Пример:
Введите элементы массива:
2 -3 4 1 8 -1 5 -7 -2 3
p = 40320
Var
step: array[1..8] of real;
i, x: integer;
begin
readln(x);
step[1] := 1 - x;
step[2] := step[1] * step[1];
step[3] := step[2] * step[1];
step[4] := 3 * x;
step[5] := step[4] * x;
step[6] := 1 - step[5];
step[7] := step[6] * x;
step[8] := step[3] + step[7];
for i := 1 to 8 do
write(step[i], ' ');
end.
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26
