1.Как действия нужно применить, чтобы добавить звук? 2. Как записать звук? 3. В каких папках находятся звуки? 4. С какими расширениями звуков можно работать в среде Scratch? 5.Для чего используются звуковые эффекты в программе? 6. Звуки можно загрузить разными путями. Объясните, как это можно сделать.

Ниже этого меню, находится список звуков, которые присутствуют у выбранного спрайта или у сцены. Щёлкните по звуку в списке звуков, если хотите с ним дальше работать. Над ним появится крестик. Щёлкните по нему если хотите удалить звук.Справа от списка звуков расположен редактор выбранного звука. Нажмите на значок треугольника чтобы звук. Нажмите на значок квадрата чтобы остановить звук. Нажмите на значок круга чтобы записать звук с микрофона и добавить его к выбранному звуку. Кликните по надписи "Правка" или "Эффекты" для изменения звука, или добавления к нему различных эффектов. Но прежде чем сделать это, выделите часть звука, которую хотите изменить.

В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max<a[i] then
       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.

Function getSumFor(n:integer):integer;var sum, i:integer;begin  sum := 0;  for i:=1 to n do   begin    sum := sum + i;  end;  result := sum;end;
function getSumWhile(n:integer):integer;var sum, i:integer;begin  sum := 0;  i := 1;  while i <= n do  begin    sum := sum + i;    i := i + 1;  end;  result := sum;end;
function getSumRepeat(n:integer):integer;var sum, i:integer;begin  i := 1;  sum := 0;  repeat    sum := sum + i;    i := i + 1;  until i > n;  result := sum;end;
begin  writeln(getSumFor(1));  writeln(getSumWhile(1));  writeln(getSumRepeat(1));end.