Соседями элемента Аj, назовем элементы Ак і-1 << < i+1, j-1 <1 <ј+1, (k, 1)+( i,j).
Операция сглаживания матрицы дает новую матрицу того же размера, каждый элемент
который получается как среднее арифметическое имеющихся соседей соответствующего
элемента исходной матрицы. Построить результат сглаживання заданной вещественной
матрицы размером 10 на 10.
В сглаженной матрице найти сумму модулей элементов, расположенных низке главной
Диагонали.​

Это ?   pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real;     x0,y0,i: integer;     s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do   {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі}   begin   line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•}   line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);   if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1}     begin     str(i div 2,s);     if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬}     textout(x0+round(i*pi*mx/2),y0+10,s+'pi');     textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');     end;   end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do   begin   setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬}   x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ}   end; end.

Program parabola;

Uses crt,GraphABC;

Const

w=800;

h=600;

x0=400;

y0=300;

k=20;

var i,x1,y1:integer;

x,y:real;

begin SetWindowSIze(w,h);

Line(0,y0,w,y0);

Line(x0,0,x0,h);

TextOut(x0+5,y0+5, '0');

TextOut(w-10,y0+5, 'x');

TextOut(x0+5,10,'y');

i:=k;

while i<w do

begin

Line (i,y0-5,i,y0+5);

i:=i+k;

end;

i:=k;

While i<h do

begin Line(x0-5,i,x0+5,i);

i:=i+k;

end;

x:=-20;

while x<=20 do

begin

y:=x*sin(x);

x1:=Round(x0+k*x);

y1:=Round(y0-k*y);

SetPixel(x0,y1,clblue);

SetPixel(x1,y0,clblue);

SetPixel(x1,y1,clred);

x:=x+0.01;

end;

SaveWindow('Grafic.bmp');

end.