Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
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
Объяснение: