Дана квадратная целочисленная матрица порядка 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.

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.