Математическое моделирование. Черный А.А. - 228 стр.

  for J:=1 to X do
   begin
     SS:=SS+Y[J]; O[1]:=O[1]+1;
   end;
  B[1]:=SS/O[1];
  SS:=0; O[2]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*Y[J]; O[2]:=O[2]+I[J]*I[J];
   end;
  B[2]:=SS/O[2];
  SS:=0; O[3]:=0;
  for J:=1 to X do
   begin
     SS:=SS+K[J]*Y[J]; O[3]:=O[3]+K[J]*K[J];
   end;
  B[3]:=SS/O[3];
 end;{GB1410}
procedure GB1480;
 begin
  SS:=0; O[4]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*Y[J];
     O[4]:=O[4]+P[J]*P[J];
   end;
  B[4]:=SS/O[4]; SS:=0; O[5]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*Y[J];
     O[5]:=O[5]+(I[J]*P[J])*(I[J]*P[J]);
   end;
  B[5]:=SS/O[5]; SS:=0; O[6]:=0;
  for J:=1 to X do
   begin
     SS:=SS+Q[J]*Y[J];
     O[6]:=O[6]+Q[J]*Q[J];
   end;
  B[6]:=SS/O[6]; SS:=0; O[7]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*Q[J]*Y[J];
     O[7]:=O[7]+(I[J]*Q[J])*(I[J]*Q[J]);
   end;
  B[7]:=SS/O[7]; SS:=0; O[8]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*K[J]*Y[J];
     O[8]:=O[8]+(P[J]*K[J])*(P[J]*K[J]);
   end;
  B[8]:=SS/O[8]; SS:=0; O[9]:=0;
  for J:=1 to X do
   begin
     SS:=SS+K[J]*Q[J]*Y[J];
     O[9]:=O[9]+(K[J]*Q[J])*(K[J]*Q[J]);
   end;
  B[9]:=SS/O[9];
 end;{GB1480}
procedure GB1600;
 begin



                                               228