Решите задачу в программе PASCALABC.NET используя цикл loop

Для начала посчитаем, сколько бит информации было передано:
2 минуты и 45 секунд = 165 секунд
165 с * 128000 бит/с = 21120000 бит

Теперь вспомним, что такое частота дискретизация и уровни квантования. Дело в том, что аудио сигнал - это такая прикольная сложная синусоида. Чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). Для каждого из этих промежутков записывается что-то вроде среднего значения высоты. Количество возможных значений - количество уровней квантования.
Но это так - если говорить очень упрощённо. Подробнее прочитайте в своём учебнике информатики.

Итак - у нас 256 уровней квантования. Значит каждое из значений можно записать 8 битами.
И на секунду у нас приходится 22000 таких записей.
То есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами.

21120000 / 176000 = 120 секунд.

const N=5;

var i,j,max,sum,i1,j1:integer;

   a:array [1..N,1..N] of integer;

   st:boolean;

begin

 sum:=0; max:=0; i1:=0; j1:=0;

 st:=false;

 randomize;

 for i:=1 to n do  

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(31)-10;

         write(a[i,j]:4);

         if st = false then

           begin

             max:=a[i,j];

             st:=true;

           end

             else

               if a[i,j]>max then

                 max:=a[i,j];

          if a[i,j]>0 then

             begin

               i1:=i;

               j1:=j;

             end;

       end;

     writeln;

   end;

 writeln;

 for i:=1 to i1-1 do

   for j:=1 to n do

     sum:=sum+a[i,j];

 for j:=1 to j1-1 do

   sum:=sum+a[i+1,j];

 writeln('MAX: ',max);

 writeln('SUM: ',sum)

 

end.

Объяснение: