a: array [1..20] of integer; {объявляем целочисленный массив на 20 элементов}
i, min, t, m: integer; {i - счетчик, min - минимум, t, m - временные переменные}
begin
{рандом 20 чисел в диапазоне [-20;12]}
randomize;
for i:=1 to 20 do
a[i]:=random(33)-20;
min:=a[1]; //присваиваем минимуму первый элемент.
{цикл начинается с 2, чтобы не делать лишнюю итерацию}
for i:=2 to 20 do
begin
{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}
1) 1. 2 в 13 степени бит=8192 бита. То есть биты выражаем в килобайты. Решение:8192 бита=1 килобайту. ответ:1 килобайт.
2. 0.125*1024*1024=1048576
3. 1/2 кБ=1024/2 байт=8*1024/2 бит=4096 бит.
4. 2 в 23 это 8388608 бит, тк в 1 байте 8 бит, то 8388608 : 8=1048576 байт, следовательно 1мб
5. 15 кбайт= 120000 бит, 120000 бит= 120 кбит
2)Длина данного текста 32 символа
3) 150*16=2400 бит, 2400 бит= 300 байт, ответ 300 байт
4) -
5) количество последовательностей будет равно количеству двоичных чисел, которые можно записать с символов, т.е. 2 ^ 7 = 128
Объяснение:
Язык: Pascal.
var
a: array [1..20] of integer; {объявляем целочисленный массив на 20 элементов}
i, min, t, m: integer; {i - счетчик, min - минимум, t, m - временные переменные}
begin
{рандом 20 чисел в диапазоне [-20;12]}
randomize;
for i:=1 to 20 do
a[i]:=random(33)-20;
min:=a[1]; //присваиваем минимуму первый элемент.
{цикл начинается с 2, чтобы не делать лишнюю итерацию}
for i:=2 to 20 do
begin
{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}
if min > a[i] then
begin
min:=a[i];
m:=i;
end;
end;
{выводим старый массив}
Writeln('Старый массив:');
for i:=1 to 20 do
writeln(a[i]);
{меняем местами последний элемент с минимальным}
t:=a[20];
a[20]:=min;
a[m]:= t;
{выводим новый массив}
Writeln('Новый массив:');
for i:=1 to 20 do
writeln(a[i]);
end.