И=0₁₀=0₂<span>
Д=1</span>₁₀=1₂<span>
Т=2</span>₁₀=10₂<span>
О=3</span>₁₀=11₂<span>
X=4</span>₁₀=100₂
ТИХОХОД=10 0100 1110 0111<span>₂=24E7</span>₁₆
Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
Это цифра в двоичной системе счисления