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.
2) было 8 бит на пиксель, стало 1 бит.
Исходный обьем = 70/(8-1) * 8 = 80 байт = 640 бит
3)Формула нахождения объема закодированного звука
A = D * i * t (D - частота дискретизации, i - глубина бит/разрядность, t - время)
Тогда t = A / (D * i)
Приводим единицы измерения
D = 22.05 кГц = 22050.0 Гц
A = 5.25 Мбайт = 5.25 * 1024 * 1024 * 8 бит = 44040192.0 бит
t = A / (D * i) = 44040192.0 / (22050.0 * 16) = 124.83047619047619 секунд = 2.0805079365079364 минут