Const n=15;
<span>var i,k,mn,indm,sm: integer;
</span><span> a: array[1..n] of integer;
</span><span> sar: real;
</span><span>begin
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> mn:=n; sm:=0;
</span><span> k:=1;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-n,n);
</span><span> sm:=sm+a[i];
</span><span> write(a[i],' ');
</span><span> if a[i]=mn then k:=k+1;
</span><span> if a[i]<mn then
</span><span> begin
</span><span> mn:=a[i];
</span><span> indm:=i;
</span><span> k:=1;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> writeln('минимальный элемент: ',mn,' индекс: ',indm);
</span><span> sm:=sm-a[indm]*k;
</span><span> writeln('сумма элементов без минимального: ',sm);
</span><span> sar:=sm/(n-k);
</span><span> writeln('среднее арифметическое: ',sar:7:3);
</span><span>end.
</span>исходный массив:
<span>-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
</span><span>минимальный элемент: -14 индекс: 4
</span><span>сумма элементов без минимального: 6
</span><span>среднее арифметическое: 0.462
</span>
2,6 ГБайт = 2,6*1024 = 2662, 4 МБайт
2662, 4 МБайт = 2662, 4*1024 = 2726297,6 КБайт
2726297,6 КБайт = 2726297,6*1024 = 2791728742,4 Байт
Ответ: 2,6 ГБайт = 2791728742,4 Байт.
Ответ:
Дело мастера боится
Объяснение:
у человека, досконально знающего своё дело, ремесло, даже сложная работа будет ладиться и получаться.
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
24 кГц = 24000 Гц; 32 кГц = 32000 Гц
30 Мбайт = 30*1024 Кбайт = 30*1024*1024 байт = 30*1024*1024*8 бит
T = 30*1024*1024*8 / (2*24000*16)
A2 = 4*32000*16*30*1024*1024*8/(2*24000*16) = 4*32*30*1024*1024*8 / (2*24) =
= 80*1024*1024*8 бит = 80 Мбайт