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

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of real;     i,j: integer;     sr,b,c: real; begin randomize; writeln('исходная матрица: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random()*13;               write(a[i,j]: 6: 3,' ')               end;       writeln;       end; writeln; writeln('сглаженная матрица: '); for i: = 1 to n do       begin       b: =a[i,1];       c: =a[i,2];       a[i,1]: =(b+c)/2;       for j: = 2 to m-1 do               begin               sr: =(b+c+a[i,j+1])/3;               b: =a[i,j];               a[i,j]: =sr;               end;       a[i,m]: =(b+a[i,m])/2       end; for i: = 1 to n do       begin       for j: = 1 to m do               write(a[i,j]: 6: 3,' ');       writeln;       end end.

Алёша первый отрубает 1 голову, добрыня отрубает 3 головы, и потом алёша отрубает последнюю голову