<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Ну тут всё надо перемножить и перевести в кБ.
30 с * 16000 Гц * 16 бит = 7 680 000 бит ( сек * 1/сек * бит = бит)
7 680 000 / 8 = 960 000 Байт (1 Байт = 8 бит)
960 000 / 1024 = 937,5 кБайт (1 кБайт = 1024 Байт, т.е. 2 в степени 10)
<span>
</span>
Исходный массив:
1 2 3 4 5 6 7 8 9 10 11
Далее, каждому элементу начиная с нулевого, присваиваем значение массива с таким же индексом, но считая с конца и получаем:
11 10 9 8 7 6 7 8 9 10 11
27 - 1 ,28-4,29-4 привет гыыы
26+26=52, вот и всё,легко же