1. определите объем звучания звукового файла длительностью 80 секунд, с частотой дискретизации 8000 гц и глубиной кодирования 16 бит. полученный результат переведите в мбайты.

80*8000*16=1,22мб   

//pascal abc.net 3.1 сборка 1256 const   n=4;   var   ma: array[1..n,1..n] of integer;   i,j: integer; begin randomize; writeln('matrix: ');   for i: =1 to n do   begin   for j: =1 to n do     begin     ma[i,j]: =random(10);     write(ma[i,j]: 4);     end;   writeln;   end; for i: =1 to n div 2 do begin   swap(ma[i,i],ma[n-i+1,n-i+1]);   swap(ma[i,n-i+1],ma[n-i+1,i]); end; writeln('final matrix: '); for i: =1 to n do   begin   for j: =1 to n do     write(ma[i,j]: 4);   writeln;   end; end.

//школьный вариант с уродливым "пузырьком" //pascal abc.net 3.1 сборка 1256 const   n=10;   m=20;   z=30; var   ar1: array[1..n] of integer;   ar2: array[1..m] of integer;   ar3: array[1..z] of integer;   i,k,j: integer;   b: boolean; begin randomize; k: =-1; b: =false;   for i: =1 to n do     ar1[i]: =random(20);   for i: =1 to n-1 do     for j: =i+1 to n do     if ar1[i]> ar1[j] then swap(ar1[i],ar1[j]);   writeln('array 1: ');   for i: =1 to n do     write(ar1[i]: 4);   writeln;   for i: =1 to m do     ar2[i]: =random(20);   for i: =1 to m-1 do     for j: =i+1 to m do     if ar2[i]> ar2[j] then swap(ar2[i],ar2[j]);     writeln('array 2: ');   for i: =1 to m do     write(ar2[i]: 4);   writeln;   for i: =1 to z do     ar3[i]: =random(20);   for i: =1 to z-1 do     for j: =i+1 to z do     if ar3[i]> ar3[j] then swap(ar3[i],ar3[j]);     writeln('array 3: ');   for i: =1 to z do     write(ar3[i]: 4);     for i: =1 to n do     begin       k: =-1;       for j: =1 to m do       if ar1[i]=ar2[j] then         begin         k: =ar1[i];         break;       end;       if k=-1 then continue;       for j: =1 to z do       if k=ar3[j] then       begin         b: =true;         break;       end;     if b=true then break;     end;   writeln;   writeln('result: ');   if b=false then writeln('нет') else writeln(k); end.