1) x mod 2 = 1
2) if x < 0 then x := -x
3) в
4) б
5) в
6) в
7) б и в
8) \овал: Начало\
\стрелка вниз\
\параллелограмм: N := 2\
\стрелка вниз\
\ромб: N > 200?\
\стрелка да\
\овал: Конец\
\стрелка нет\
\параллелограмм: Вывести число N\
\стрелка вниз\
\параллелограмм: N := N + 2\
\стрелка к ромбу\
_________________________
354=01100010
872=010101101000
648=010001000
931=110100011
В одном байте 8 бит. В одном килобайте - 1024 байт. В одном мегабайте - 1024 килобайт
1,7 Кб=1,7*1024*8= 13926,4 бит
3,3 Мб=3,3*1024*1024*8= 27 682 406,4 бит
7,7 байт=7,7*8=61,6 бит
Вот и все
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>