const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], ' ');
end;
writeln;
write('k = '); readln(k);
if (k > n) or (k < 1) then
begin
writeln('элемента с таким индексом нет');
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
write(a[i], ' ');
readln;
writeln;
end.
Размер цифрового моноаудиофайла измеряется по формуле: A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука(сек), i - глубина кодирования(байт)
т.к. у нас стерео файл, то он будет занимать в 2 раза больше места при тойже продолжительности(т.к. в нем хранится 2 монодорожки)
16 бит = 2 байта
А = 44000 * 300 * 2 = 26400000 байт = 25781,25 килобайт = 25,177 мегабайт
это для монофайла
а для стерео в 2 раза больше
52800000 байт = 51562,5 килобайт = 50,354 мегабайт