Нарисовать в тетради рисунок и записать план построения (не менее пяти инструментов) в paint

Не совсем чётко сформулировано задание. Но попробую хоть в чём-то хотя можно ответить только на вопрос  типа "Сравнить размеры этих файлов".

 

Во втором файле по сравнению с первым

стерео *2

16 бит *2

48000  *6    (после * указываю во сколько раз больше, чем в 1 случае)

Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.

Ну где-то так...

 

Да, примерный объём первого файла за 10сек оценивается просто

10*1*8000=80 000 байт = 78Кбайт

Ну а второго

80000*24=1920000байт = 1875Кб=1.8М

//Pascal ABC.NET 3.1 сборка 1219

Var
 ar:array of integer;
 i,n:integer;

 procedure quicksort(var a:array of integer; Lo,Hi: integer);

procedure sort(l,r: integer);
var
i,j,x:integer;
begin
i:=l;
 j:=r;
 x:=a[random(r-l+1)+l];
repeat
while a[i]>x do i:=i+1;
 while x>a[j] do j:=j-1;
  if i<=j then
   begin
    if a[i]<a[j] then swap(a[i],a[j]);
    i:=i+1;
 j:=j-1;
  end;
    until i>=j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin;
  randomize;
  sort(Lo,Hi)
end;

 begin
 readln(n);
 setlength(ar,n);
 n:=n-1;
 writeln('Array:');
 for i:=0 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
  end;
 quicksort(ar,0,n);
 writeln;
 writeln('Final array:');
 for i:=0 to n do
 write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
   8   7   5   9   4
Final array:
   9   8   7   5   4