Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 25 стр.

  end;
procedure VVOD25;
  begin
    writeln('Ввод A5 B5 J5');
    readln(A5,B5,J5);
    writeln(F0,'A3=',A3,' B3=',B3);
    writeln(F0,'J3=',J3);
  end;
procedure GB780;
  begin
    SS:=0; O[1]:=0;
    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];
  end;
procedure GB810;
  begin
    SS:=0; O[3]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*Y[J];
        O[3]:=O[3]+P[J]*P[J];
      end;
    B[3]:=SS/O[3];
    SS:=0; O[4]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*P[J]*Y[J];
        O[4]:=O[4]+(I[J]*P[J])*(I[J]*P[J]);
      end;
    B[4]:=SS/O[4];
  end;{GB810}
procedure GB850;
  begin
    SS:=0; O[5]:=0;
    for J:=1 to X do
      begin
        SS:=SS+U[J]*Y[J];
        O[5]:=O[5]+U[J]*U[J];
      end;
    B[5]:=SS/O[5];
    SS:=0; O[6]:=0;
    for J:=1 to X do
      begin
        SS:=SS+I[J]*U[J]*Y[J];
        O[6]:=O[6]+(I[J]*U[J])*(I[J]*U[J]);
      end;
    B[6]:=SS/O[6];
    SS:=0; O[7]:=0;
    for J:=1 to X do
      begin
        SS:=SS+P[J]*U[J]*Y[J];
        O[7]:=O[7]+(P[J]*U[J])*(P[J]*U[J]);
      end;

                                      25