Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 164 стр.

  for J:=1 to X do
   begin
     SS:=SS+U[J]*M[J]*Y[J];
     O[24]:=O[24]+(U[J]*M[J])*(U[J]*M[J]);
   end;
  B[24]:=SS/O[24]; SS:=0; O[25]:=0;
  for J:=1 to X do
   begin
     SS:=SS+M[J]*V[J]*Y[J];
     O[25]:=O[25]+(M[J]*V[J])*(M[J]*V[J]);
   end;
  B[25]:=SS/O[25];
 end;{GB1830}
procedure GB1930;
 begin
  SS:=0; O[13]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*Y[J];
     O[13]:=O[13]+L[J]*L[J];
   end;
  B[13]:=SS/O[13]; SS:=0; O[14]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*L[J]*Y[J];
     O[14]:=O[14]+(P[J]*L[J])*(P[J]*L[J]);
   end;
  B[14]:=SS/O[14]; SS:=0; O[15]:=0;
  for J:=1 to X do
   begin
     SS:=SS+Q[J]*L[J]*Y[J];
     O[15]:=O[15]+(Q[J]*L[J])*(Q[J]*L[J]);
   end;
  B[15]:=SS/O[15]; SS:=0; O[16]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*U[J]*Y[J];
     O[16]:=O[16]+(L[J]*U[J])*(L[J]*U[J]);
   end;
  B[16]:=SS/O[16];
 end;{GB1930}
procedure GB2000;
 begin
  SS:=0; O[4]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*Y[J];
     O[4]:=O[4]+L[J]*L[J];
   end;
  B[4]:=SS/O[4];
 end;{GB2000}
procedure GB2020;
 begin
  SS:=0; O[5]:=0;
  for J:=1 to X do
   begin
     SS:=SS+M[J]*Y[J];




                                             164