В PascalABC.NET есть много что готового. В частности, используя новые возможности, можно записать всё одной (вернее, двумя) строчками:
Код (PascalABC.NET):
##
ArrRandomInteger.Select((val, ind) -> Format('a[{0}] = {1}', ind, val)).Print(NewLine)
Пример вывода:
a[0] = 83
a[1] = 6
a[2] = 58
a[3] = 61
a[4] = 64
a[5] = 49
a[6] = 59
a[7] = 9
a[8] = 83
a[9] = 75
Более традиционный (в стиле "старого Паскаля") подход можно реализовать, например, так:
Код (PascalABC.NET):
var
a: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(101);
writeln('a[', i, '] = ', a[i]);
end;
end.
Пример вывода:
a[1] = 7
a[2] = 21
a[3] = 15
a[4] = 78
a[5] = 91
a[6] = 72
a[7] = 63
a[8] = 56
a[9] = 38
a[10] = 81
16 бит
Объяснение:
I = t * f * i * k, где
I - информационный объём аудио файла (размер файла, содержащего запись звука)
t - длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
t = 2 мин = 120 сек
I = 5,1 Мбайт = 42781900,8 бит
f = 22 050 Гц
k = 1
Найти:
i
I = t * f * i * k
i = I / (t * f * k)
i = 42781900,8 / (120 * 22 050 * 1) = 42781900,8 / 2646000 ≈ 16 бит
1 мин = 60 сек
1 байт = 8 бит
1 Кбайт = 1 024 байт
1 Мбайт = 1 024 Кбайт
if n >=350. 000
13.5%
else
14.2%