===== PascalABC.NET =====
function MinMax(a: array of integer): (integer, integer);
begin
var min := Abs(a[0]);
var max := min;
for var i := 1 to a.High do
if Abs(a[i]) < min then
min := Abs(a[i])
else if Abs(a[i]) > max then
max := Abs(a[i]);
Result := (min, max)
end;
begin
var M := MatrRandom(5, 5, -50, 50);
M.Println(4);
var F := M.ElementsWithIndices
.Where(p -> p[2] >= p[1])
.Select(p -> p[0])
.ToArray;
F.Println;
var r := MinMax(F);
Println('Min=', r[0], ' max=', r[1])
end.
![[70б] матрица m [5,8] заполнить исходную матрицу случайными числами из диапазона от -50 до 50. вывес](/tpl/images/1026/7946/79e6f.jpg)
Кодирование и обработка звуковой информации
Звуковая информация Звук представляет собой распространяющуюся в воздухе, воде или другой среде волну (колебания воздуха или другой среды) непрерывно меняющейся амплитудой и частотой. Человек воспринимает звуковые волны с слуха в форме звука различной громкости и тона. Чем больше амплитуда звуковой волны, тем громче звук, чем больше частота колебаний, тем выше тон звука.
Звуковая информация Человеческое ухо воспринимает звук с частотой от 20 колебаний в секунду (низкий звук) до 20 000 колебаний в секунду (высокий звук). Для измерения громкости звука применяется специальная единица децибел (дБ). Звук Громкость, дБ Нижний предел чувствительности человеческого уха 0 Шорох листьев 10 Разговор 60 Гудок автомобиля 90 Реактивный двигатель 120 Болевой порог 140