[hsMapk]

Код:

var
  Form1: TForm1;
  M:array[0..4,0..4] of Double;
  MAX,i,j: Integer;
  SREDN: Double;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  for i:=0 to 4 do
    for j:=0 to 4 do
    begin
      Randomize;
      M[i,j]:=Random(9)+1;
      SG.Cells[j,i]:=FloatToStr(M[i,j]);
    end;
  SREDN:=2*(Mean(M[i,j]));
  LabeledEdit1.Text:=FloatToStr(SREDN);
end;

end.

Считать не хочет и в Едит выводит 0. Помогите

[icWasya]

Для начала - Randomize вынести из цикла
Во вторых, в функцию Mean нужно подавать одномерный массив Double,
Для двумерного напиши сам

[Страдалецъ]

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 AMid: Array[0..4] of Extended;
begin
 Randomize;
 for i:=0 to 4 
 do begin
     for j:=0 to 4 
     do begin      
         M[i,j]:=Random(9)+1;
         SG.Cells[j,i]:=FloatToStr(M[i,j]);
         end;
     AMid[i] := Mean(M[i]);
     end;
  LabeledEdit1.Text := FloatToStr(Mean(AMid));
end;