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.
Ответ:
ответ под буквой в я уверен
А) y:=(3*x*x+7)/(5*x+1)
б) y:=sqrt((a*a-c)/(4*a*c))-a/(7*c)
в) y:=sqr(cos(2*x))+abs(sin(x/2))
г) x*x+y*y <= sqr((z-8))
д) sqrt((5*x*x+2)/abs(3*x*x*y))-sqr(x-y)/(5*x*y)