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);
...
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); s := s + r;
end;
WriteLn(s div n);
Sera?