Usar array y funcion mean?

[Gugao]

Hola

Tengo este programita que muy gentilmente el señor Federico (delphi.com.ar) me ayudo programar:


procedure TForm1.BotSumarClick(Sender: TObject);
var
R: integer;
D, L: extended;
begin
L:= StrToFloat (Edit1.Text);
D:= StrToFloat (Edit2.Text) ;

Randomize;
R:= 0;
repeat
inc(R);
until randg(D,1)>L;
Beta.Text := FloatToStr (R);
end;

El problema es que soy nuevo programando y no se como obtener cierta cantidad de esas variables R (un array?) para calcular el promedio de R (con la función mean?) ,

Lo quiero hacer generando una nueva variable N que será la cantidad de R´s para calcular la media:

Es decir

MEDIA= (R1+R2+ … +RN)/N

Donde N será en el programa:
N:= StrToInt(Edit3.Text) ;

De antemano muchas gracias.

[[cHackAll]]

Haber si te entendí, media? Lo obvio, con un array sunmas cada valor;

Código Delphi [-]
var
 r: array[0..200] of Integer;
 n, i: Integer;
 s: Int64;
 
...
 
 s := 0;
 for i := 0 to n - 1 do
  s := s + r[i];
 WriteLn(s div n);  // Por ejemplo no se qué harás con el resultado así que un clásico WriteLn
 
...

Pero si no te interesan los valores del vector entonces haces "chanchullo"

Código Delphi [-]
 ReadLn(n);
 s := 0;
 for i := 0 to n - 1 do
  begin
   Write('Ingresa el siguiente numero: '); 
   ReadLn(r); // r := Random(666); // ???
   s := s + r;
 end;
 WriteLn(s div n);  // Label1.Caption := IntToStr(s div n); ???

Sera?

[Robert01]

¿Que es lo que te interesa hacer?

¿Calcular la media general solamente?

No se si te interesa determinar las medias marginales (de filas y de columnas) también y sirven para otros cálculos como matrices de covarianza que se usan en muchos métodos estadísticos.

Saludos