1.с каких операций можно обрезать часть аудиозаписи? 2.какие операции и эффекты позволяют улучшить качество аудиозаписи? 3.каким образом можно соединить несколько аудиозаписей в одну? 4.с каких эффектов можно добиться плавного перехода от одной аудиозаписи к другой при монтаже?

var i,s,p:integer; a:array [1..100] of integer;

begin 

s:=0; p:=0;

writeln('Vvedite masiv a:'); 

for i:=1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i:=1 to 10 do begin

if a[i]>0 then s:=s+a[i]; 

end;

s:=s*2;

writeln('Udvoennaya suma polozhitelnih elementov=',s);

writeln('Indexi elementov kotorie bolshe prediduschego:');

writeln;

for i:=2 to 10 do begin

if a[i]>a[i-1] then write(i,', ');

end;

for i:=2 to 10 do begin

if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;

end;

writeln;

if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else  writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami'); 

readln(s);

end. 

 

PascalABC.NET
Программа сработает некорректно если слова будут разделены                       несколькими      пробелами или строка будет заканчиваться пробелом
const      c = ' '; 
var   
s : string;   
k,p : integer;    
begin 
writeln ('Введите строку'); 
readln (s); 
k := -1; 
p := 1; 
if (s <> '') and (s <> ' ') then   
begin   
while p <> 0 do     
begin       
k := k +1;       
p := PosEx (c,s,p+1);      
end;   
writeln (k+1,' word')    
end   
else   
writeln ('error string'); 
end.