Program CrazyCoder;

 Var x:array [1..100] of integer;
      i,n,sum,k:integer;
      sr:real;
begin
writeln ('Введите колличество элементов  ');
Readln (n);
 for i:=1 to n do begin
    write ('Введите ',i, ' элемент ');
    Readln (x[i]);
    end;
writeln;
For i:=1 to n do
   begin
   sum:=sum+x[i];
   inc(k);
   sr:=sum/k;
   end;
Writeln ('С/Р = ',sr:4:2);
Readln
end.