1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
Частота дискретизации 256 Гц, то за 1с запоминается 256 значений сигнала. Используется 4096 = 212 уровней дискретизации, значит, глубина равна 12 бит. Время записи 10 мин это 600 сек, поэтому для хранения информации потребуется 256 * 12 * 600 = 28 * 4 * 3 * 15 * 40 бит = 210 * 3 * 15 * 5 * 8 бит = 225 Кбайт.
1 знак=8 бит
<span>8 разрядного двоичного кода, включая пробелы
</span>
тогда 8+8+8(пробел)+8+8+8+8+8+8+8+8= 88 бит
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.