Процедуры с параметром

var 
mass:array[1..10] of integer;
r:real;
i:integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  r:=1;
  for i:=1 to 10 do
  begin
  r:=mass[i] * r;
  end;
Label1.caption:='Произведение массива: ' + FloatToStr(r);
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
r:=0;
  for i:=1 to 10 do
  begin
  r:=r+mass[i];
  end;
r:=r/10;
Label1.caption:='Среднеарефметическое массива: ' + FloatToStr(r);
end;

procedure Calc(const aArr : array of Integer; var aMult, aAvg : Extended);
var
  i : Integer;
begin
  aMult := 1;
  aAvg := 0;
  for i := 0 to High(aArr) do begin
    aMult := aMult * aArr[i];
    aAvg := aAvg + aArr[i];
  end;
  aAvg := aAvg / Length(aArr);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  M = 7;
var
  Arr : array[1..M] of Integer;
  i : Integer;
  Mult, Avg : Extended;
  S : String;
begin
  //Заполнение и распечатка массива.
  S := '';
  Randomize;
  for i := 1 to High(Arr) do begin
    Arr[i] := 1 + Random(9); //1..9.
    if i > 1 then S := S + ', ';
    S := S + IntToStr(Arr[i]);
  end;
  Memo1.Lines.Add('--------------------------------------------------');
  Memo1.Lines.Add('Массив:');
  Memo1.Lines.Add(S);
  
  //Расчёт.
  Calc(Arr, Mult, Avg);
  //Ответ.
  Memo1.Lines.Add('Произведение: ' + FloatToStr(Mult));
  Memo1.Lines.Add('Среднее арифметическое: ' + FloatToStr(Avg));
end;