タイトル通りです。 簡単に平均値の計算をする場合、大体はこんな感じの関数を使うことになるでしょう。 function Average(data : array of Double):Double; var I : Integer; begin Result := 0; for I := 0 to Length(data) -1 do begin Result := Result …