Usar array y funcion mean?

[[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?