program co_robi_8;
uses  crt;
const max_pola=100;
var i,n: integer;
    vys: real;
    a: array[1..max_pola] of real;
begin
  writeln('Zadaj pocet prvkov:');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadaj ',i,'. prvok: ');
      readln(a[i]);
    end;
  vys:=0;
  for i:=1 to n do
    vys:=vys + a[i];
  vys:=vys/n;
  writeln('Vysledok je ',vys:6:2);
  readln;
end.