Двоичное число 10011 в восьмиричной будет

Разбиваем справа налево по три разряда и записываем соответствующую восьмеричную цифру. 010 011 -> 23 (8)

1. const   n = 10; var   a: array[1..n] of integer;   i, s: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i] : = random(21) - 10;       write(a[i]: 4);   end;   writeln;   s : = a[n];   for i : = n - 1 downto 1 do a[i + 1] : = a[i];   a[1] : = s;   writeln('после циклического сдвига вправо на 1');   for i : = 1 to n do write(a[i]: 4);   writeln end. тестовое решение: элементы массива   -2  -1    7  10    2  -7    9  -6  -5 -10 после циклического сдвига вправо на 1   -10  -2  -1    7  10    2  -7    9  -6  -5 2. const   n = 10; var   a: array[1..n] of integer;   i, j, t: integer;   begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(101);       write(a[i]: 4)   end;   writeln;   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end;   writeln('отсортированный по возрастанию массив');   for i : = 1 to n do write(a[i]: 4);   writeln end. тестовое решение: исходный массив   31  60  14  17  46    6  46  97  60  88 отсортированный по возрастанию массив     6  14  17  31  46  46  60  60  88  97