Массив задан датчиком случайных чисел на интервале [-37, 66]. найти наименьший нечетный элемент. размер произвольный.

const

n=15;

var

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

i,min: integer;

begin

randomize;

for i: =1 to n do begin

a[i]: =random(104)-37;

write (a[i],' ');

end;

writeln;

min: =a[1];

for i: =2 to n do

if (odd(a[i])=true) and (a[i]< min) then min: =a[i];

writeln (min);

readln;

end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10