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

Код:

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;