Производится одноканальная (моно) звукозапись с частотой дискретизации 8 кГц и глубиной - id1644599520221120 от danilenkoalisk 20.11.2022 10:22

Question

Информатика: Про­из­во­дит­ся од­но­ка­наль­ная (моно) зву­ко­за­пись с ча­сто­той дис­кре­ти­за­ции 8 кГц и глу­би­ной ко­ди­ро­ва­ния 24 бит. За­пись длит­ся 7 ми­ну­т, её ре­зуль­та­ты за­пи­сы­ва­ют­ся в файл, сжа­тие дан­ных не про­из­во­дит­ся. Какое из при­ве­ден­ных ниже чисел наи­бо­лее близ­ко к раз­ме­ру по­лу­чен­но­го файла, вы­ра­жен­но­му в ме­га­бай­тах?

danilenkoalisk · Accepted Answer

//FPC 2.6.4

var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);

setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;

for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;

writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;

end.

MOGZ ответил