In[]:=
countryList=EntityList["Country"];
In[]:=
emptyCountries=Select[EntityList["Country"],MissingQ[#["Population"]]&]
Out[]=

Antarctica
,
Bouvet Island

In[]:=
countryList=Complement[countryList,emptyCountries];
In[]:=
sortedList=SortBy[countryList,EntityValue[#,"Population"]&];​​Column@Map[Row[{CommonName[#],#["Population"]}]&,sortedList]
In[]:=
countryNames=Map[CommonName[#]&,countryList];​​CloudDeploy[Delayed[RandomChoice[countryNames]],"RandomCountry.html",Permissions->"Public"]
Out[]=
CloudObject[
https://www.wolframcloud.com/obj/cweir3/RandomCountry.html
]
In[]:=
englishSpeakingCountries=SelectcountryList,MemberQEntityValue[#,"Languages"],
English
LANGUAGE
&;​​englishSpeakingCountryNames=Map[CommonName[#]&,englishSpeakingCountries];
In[]:=
CloudDeploy[Delayed[RandomChoice[englishSpeakingCountryNames]],"RandomEnglishSpeakingCountry.html",Permissions->"Public"]
Out[]=
CloudObject[
https://www.wolframcloud.com/obj/cweir3/RandomEnglishSpeakingCountry.html
]
In[]:=
CloudDeploy[EvaluationNotebook[],"RandomCountry.nb",Permissions->"Public"]