Program tinh_tbc;
Uses crt;
Var A : array [1..150] of integer;
S,i,n,d : integer;
Tbc : real;
Begin
Write ('nhap n=');
Readln (n);
For i:=1 to n do
Begin
Write ('nhap phan tu thu ',i,'=');
Readln (A[i]);
end;
S:=0;
d:=0;
For i:=1 to n do
If A[i]> 0 then
Begin
d:=d+1;
S:=S+A[i];
end;
Tbc:=S/d;
Writeln ('Trung binh cong cac so duong trong day la:', Tbc:8:3);
Readln
End.