Для кодирования значений температуры воздуха(целое число в интервале от -50 до 40)используется двоичный код.какова минимальная длина двоичного кода?

Всего чисел = 40 + 50 + "0" = 91 сколько разрядов в двоичном коде нужно   = log_2 (91) =    6,5077946401987 ~= 7 бит значит для одного значения температуры необходимо 7 бит места

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i : = 0 to n - 1 do

    read (a[i]);

  last : = 0;

  for i : = 0 to n - 1 do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  setlength (a, last);

  for i : = 0 to last - 1 do

    write (a[i], ' ');

end.

 

суть такова. имеем динамический массив. считали массив, так как динамический, то от нуля все. установили последнюю свободную ячейку 0. идем по массиву и ищем ненулевое значение. как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. при этом наши данные не затираются. после окончания всех операций в last лежит длина массива.статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i : = 1 to n do

    read (a[i]);

  last : = 1;

  for i : = 1 to n do

    if a[i] < > 0 then

    begin

      a[last] : = a[i];

      inc (last);

    end;

  dec (last);

  for i : = 1 to last do

    write (a[i], ' ');

end.

 

var

  a : array [1..100] of integer;

  n, i : integer;

  flag : boolean;

begin

  write ('введите количество чисел: ');

  readln (n);

  for i : = 1 to n do

  begin

    write (i, '-ое  число = ');

    readln (a[i]);

  end;

  for i : = 1 to n do

  begin

        write (i, '-оечисло   ');

    if a[i] < 0 then

    begin

      write ('отрицательно');

      flag : = true;

    end;    

    if a[i] mod 2 = 0 then

    begin

      write ('четно');

      flag : = true;

    end;

    if not flag write ('никакое');

    flag : = false;

    writeln;

end;

end.