<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-35,60);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Rows.Select(row->row.Where(t->t<0).Count).Println
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
-21 50 17 -12 -30 10 -9 10
39 1 0 41 -29 26 28 16
50 52 13 36 43 -6 37 5
34 -3 27 13 29 -30 49 36
-17 -12 39 52 -15 -8 27 -9
--------------------------------
4 1 1 2 5
Ответ:
Ответ к 1 заданию во вложении
2) Ответ 5, так как три столбика по 2,нам нужен еще один столбик по один(это вон те маленькие)
3) C1/2
Объяснение:
5120 * 24 = 122880 бит
122880 / 15 = 8192 бит / с
Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
A1 = 2*D*T*i = 50 Мбайт ⇒ D*T*i = 50/2 = 25 МбайтA2 = (D/5)*T*(3*i) = 3/5 * D*T*i = 3/5 * 25 = 15 Мбайт
Ответ: 15 Мбайт