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.