В основном используется 8 бит.
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Вроде так. дальше протяжку сделайте и все
Объем памяти в байтах/время записи в секундах/разрядность звуковой платы в байтах
1.3мб=1.3*1024*1024=1363148,8
минута это 60 сек
а глубина 16 это 16 бит, но так как требуются байты возьмем 2 конечно же
далее все по формуле
1363148,8/60/2= 11359.5733333Гц но помним для перевода в Кгц нужно не на 1000 а на 1024 делить
// F#
[<EntryPoint>]
let main argv =
let sum =
[0..200]
|> Seq.where (fun x -> x % 4 = 0)
|> Seq.fold (fun sum x -> sum + x) 0
System.Console.WriteLine sum
System.Console.ReadKey true |> ignore
0
<span>
</span>