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

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.