1)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 10 do
begin
if mas[i]<0 then counter:=counter+1;
end;
end.
2)
var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 5 do
begin
if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
3)
var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 15 do
begin
if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
4)
var mas: array[1..15] of integer;
var counter: integer;
begin
for i:= 1 to 15 do
begin
mas[i] = random(20) - 5;
end;
for i:= 1 to 15 do
begin
writeln(mas[i]);
end;
for i:= 1 to 15 do
begin
if (mas[i]>0) then counter:=counter+1;
end;
end.
5)
var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]>0 then mas[i]=0;
end;
for i:= 1 to 7 do
begin
writeln(mas[i]);
end;
end.
6)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
var sum: real;
var average: real;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]<0 then
begin
sum:=sum+mas[i];
counter:=counter+1;
end
end;
average:= sum/counter;
end.
Объяснение:
Как убрать эхо:
1. Сначала загрузите текущий проект в программе Audition и выберите аудиофайл, из которого требуется удалить эхо. Для удаления фоновых шумов, созданных камерой или другой аппаратурой, найдите тихий участок волны. Щелкните правой кнопкой мыши на этом участке и выберите «Capture Noise Print». Так программа Audition сможет отличить шум от основного звука.
2. Чтобы удалить выбранный шум, перейдите в меню «Effects»> «Noise Reduction / Restoration»> «Noise Reduction (process)». Нажмите «Select Entire File», а затем прислушайтесь к звуку и проверьте, был ли удален шум. Также можно перейти на вкладку «Advanced» и уменьшить параметр «Spectral Decay Rate». Это сделает эффект стробирования более выраженным. Добившись требуемого результата, примените изменения, нажав кнопку «Apply».
3. Затем выберите «Effects»> «Amplitude and Compression»> «Dynamics Processing». Будет загружен эффект сжатия, который можно использовать для изменения общей формы сигнала. По умолчанию он выглядит как диагональная линия, которая проходит от одной стороны экрана «Dynamics Processing» до другой. Если вы слегка перетащите эту линию так, чтобы она стала ниже изначального положения, это уменьшит эхо. Поэкспериментируйте с расположением линии, не забывая сравнивать результат с оригиналом, пока не достигните желаемого эффекта.
4. Добившись требуемого результата обработки «Dynamics Processing», убедитесь, что выбран весь сигнал, и нажмите «ОК», чтобы применить эффект. Это уменьшит амплитуду звука (то есть его громкость), поэтому вы можете выбрать «Effects»> «Amplitude and Compression»> «Normalize» и повысить громкость.
5. Наконец, можно удалить некоторые мусорные и раздражающие частоты, создаваемые эхом. Выберите «Effects»> «Filter and EQ»> «Parametric Equalizer». По умолчанию для изменения доступно 7 основных частотных диапазонов, а также выделенная полоса низких и высоких частот. Нам потребуется несколько полос для удаления нежелательных средних частот.
Начните с увеличения полосы (и ее значения Q), а затем медленно перемещайтесь по частотным спектрам, пока не услышите резкий звук. Чтобы вырезать этот резкий участок, уменьшите частоту полосы ниже 0 дБ.
А ответом на второй вопрос является: НИКАК
