2) Запишите прямой код положительных чисел, используя шестнадцатиразрядную ячейку:
a. 450
b. 235
c. 631

паскаль авс:

program maxtv; uses crt; const n=10; var  a: array[1..n] of real;   r: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('введите r, не равное 0'); readln(r);   if r< > 0 then      begin          writeln('элементы массива: ');           randomize;               for i: =1 to n do                  begin                      a[i]: =random(100)-50;                       write (a[i]: 7: 2);                   end;               writeln();               writeln('заменяем 2,4,5,9: ');               a[2]: =a[2]/r;               a[4]: =a[4]/r;               a[5]: =a[5]/r;               a[9]: =a[9]/r;               for i: =1 to n do                  write (a[i]: 7: 2)      end   else      writeln('ну вас же просили не вводить 0! ');       end.