Напишите функцию, которая выводит на печать матрицу, разделяя элементы строки матрицы между собой табуляцией (символ \t).

4,37  ~  4

Объяснение:

Так как частота дискретизации 16 кГц, то за одну секунду запоминается 16000 значений сигнала.

 

Глубина кодирования 24 бита, т. е. 3 байта.

Т. к. запись четврёхканальная, объём памяти, необходимый для хранения данных одного канала, умножается на 4, поэтому, так как потребовалось 48 Мбайт, один канал занимает:

12 Мбайт или 12·220 байт.

Чтобы найти время, в течение которого проводилась запись, необходимо разделить найденный информационный объем на глубину кодирования и на частоту дискретизации:

(12 * 2^20) / (16000 * 3) = 2^18 / 1000 = 262,144 сек.

Тем самым, время записи примерно равно:

4,37 минуты, что близко к 4 минутам.

№1                                        

program raf105;

var a,otr: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a<0

   then otr+= 1;

until a = 0;

writeln('Отрицательных чисел: ',otr);

end.

№2                                        

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a>0

   then sum+= a;

until a = 0;

writeln('Сумма положительных чисел: ',sum);

end.

                                              PascalABC 3.4.2