Метеорологическая станция ведет наблюдение за температурой воздуха. считается, что температура должна быть представлена целым числом. при этом она не может опускаться ниже минус 10 градусов и подниматься выше плюс 20 градусов. каждое значение температуры записывается при минимального возможного количества битов. за некоторый период станция сделала 100 измерений. каков информационный объем результатов наблюдений? , с объяснением

N=30     16> 30> 32, значит   результат одного измерения равен 5 битам, по формуле n=2^i, где n- диапазон температур, то есть от -10 градусов, до +20 градусов. n=30, тогда i=5 бит. станция сделала 100 измерений. получается, информационный объем результатов наблюдений равен 100 * 5 бит, = 500 бит а если уж найти логарифм 30, то это будет 4.9 значит 4.9*100 - 490 бит думаю так

Var a: array [1..10] of integer;     i, x, y, xi, yi, t: integer; begin      for i : = 1 to 10 do          readln(a[i]);       writeln('x, y');       readln(x, y);                   for i : = 0 to abs(round(0.5*(x- do      begin          t : = a[x+i];         a[x+i] : = a[y-i];         a[y-i] : = t;       end;             for i : = 1 to 10 do          writeln('[', i, '] => ', a[i]); end.

Вот, пингвинчик : 3 можно было и короче, переменных поменьше и но раз именно такая, то лучше не сокращать, а то могут оценку снизить) var a: array [1..10] of integer;     i, x, y, xi, yi, t: integer; begin       for i : = 1 to 10 do           readln(a[i]);       writeln('x, y');       readln(x, y);                   for i : = 1 to 10 do       begin           if (a[i] = x) then xi : = i;           if (a[i] = y) then yi : = i;       end;       t : = a[xi];       a[xi] : = a[yi];       a[yi] : = t;       for i : = 1 to 10 do           writeln('[', i, '] => ', a[i]); end.