Дана квадратная целочисленная матрица порядка n. сформировать результирующий одномерный массив, элементами которого являются построчные средние арифметические значения нечетных элементов исходной матрицы. на pascal.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,-99,99);   a.println(4); writeln(n*4*'-');   var b: =a.rows.select(row-> row.where(t-> t.isodd).defaultifempty.average)       .toarray;   b.println; end. пример количество строк/столбцов в матрице: 5 *** исходная матрица ***   40 -38  16 -70  26   87    7 -31  99  34   -34 -47 -33  32  56   66  71  41    7  80   55  42 -22    7  86 0 40.5 -40 39.6666666666667 31

Program sector; const n=10; var a: array [1..n,1..n] of integer; b: array [1..n] of real; i,j,z: byte; begin randomize; for i: =1 to n do begin       for j: =1 to n do begin               a[i,j]: =random (40);               a[i,j]: =a[i,j]-20;               write(a[i,j]: 4);       end;       writeln;       end; for i: =1 to n do begin       z: =0;       for j: =1 to i do       if (a[i,j] mod 2 < > 0) then z: =z+a[i,j];       b[i]: =z/2;       writeln(i,' ',b[i]); end; readln; end.

1)дюймовочка

2)змей горыныч (3 головы)

3)снегурочка(сделана из снега)

4)буратино (необычно длинный нос)

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации