[hsMapk]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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,
Для двумерного напиши сам

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;