Дан одномерный массив. все его элементы, равные нулю, переписать в начало массива, а остальные в конец. язык pascal

Var   a : array [1..100] of integer;   n, i, c, free : integer; begin   read (n);   for i : = 1 to n do read (a[i]);   c : = 0;   for i : = 1 to n do     if a[i] = 0 then c : = c + 1;   free : = n;   for i : = n downto 1   do     if a[i] < > 0 then     begin       a[free] : = a[i];       free : = free - 1;     end;   for i : = 1 to c do     a[i] : = 0;   for i : = 1 to n do     write (a[i], ' '); end.

Образовался каменный уголь в результате длительного процесса, имевшего место несколько десятков миллионов лет назад. сам этот период получил название «карбон» или «карбоновый» (от латинского carbo – уголь). если описывать коротко, то происходило следующее: растения за свою жизнедеятельность накапливают в себе углерод. если после гибели растения процесс разложения происходил без доступа воздуха (под толщей воды или земли), то определённая часть углерода улетучивалась в газообразном виде.  оставшаяся часть переходила в твёрдое состояние и превращалась, сначала, в торф, потом в бурый уголь, а затем уже в каменный уголь. так образовывался угольный пласт. при многократном повторении процесса образовывалось несколько пластов, толщина которых или мощность зависела от количества одновременно погибших растений. однако если рассматривать подробнее, то процесс превращения растительных масс в каменный уголь в карбоновый период весьма сложный и был обусловлен внешними факторами – в противном случае угольные месторождения находились бы повсеместно на земле при условии бурной растительности. учёные установили, что таких внешних факторов было несколько. во-первых, почва, на которой росли леса, должна была быть предельно влажной, практически «». был даже введён термин – плавучие леса. в подобных условиях на земле под кроной деревьев довольно бурно образовывался торф. во-вторых, тектонические изменения рельефа земной коры, под воздействием внутренних толчков. в результате этих изменений, леса уходили под воду вместе с торфом, и процесс разложения набирал силу. и цепочка «торф-бурый уголь-каменный уголь» начинала действие. из-за того, что процесс в разных местах планеты проходил под различным давлением земных слоёв, образовавшийся уголь существенно отличается и по содержанию углерода, и по составу, и по плотности. потому, добываемый в настоящее время уголь классифицируется несколькими марками и сортами. и третьим фактором была высокая температура, которая, впрочем, также являлась следствием внутренней энергии земли.  на вполне естественный вопрос – почему уголь не образовывается в настоящее время, можно ответить следующее. сейчас торф на болотистых местностях образуется, в основном, от низкорослых растений, крона которых расположена близко от земли. тем самым не условия для обугливания его. да и сдвигов земной коры под воздействием тектонических толчков не наблюдается. данная теория подтверждается многими доказательствами, артефактами, найденными в кусках каменного угля, и научными экспериментами, которые проводили, начиная ещё с xix века. остаётся констатировать факт, что каменный уголь много миллионов лет назад был дарован человечеству природой и растительным миром.

За 2 взвешивания ! 1, делим 9 монет на три кучки по 3 монеты! на левую чашу ложим первую кучу а на правую чашу ложим вторую кучу монет. если чаши ровны по весу. это  означает фальшивка в третьей куче(если нет то берём кучу которая 2. у нас есть кучка из 3 монет где 1 фальшивка! одну из монет мы ложим на левую сашу а другую монету на правую чашу. если чашы равны то фальшивка это третья монета которую не взвесили. если чаши не равны по весу значит фальшивка та монета которая легче!