1. Щелкаем по надписи правой кнопкой мыши
2. Выбираем пункт "Формат надписи..."
3. Вкладка "Цвета и линии"
4. Выбираем цвет линии "Нет цвета"
В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Если я не ошибаюсь, то 1 символ = 8бит = 1байт
В слове "мысль" 5 символов, значит оно весит 5 байт.