Разделим монеты на 3 кучки по 9 монет. Положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). Теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. Наконец, остается из трех монет определить более тяжелую: кладем на чаши весов по 1 монете - фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.
с алгоритмом сложнее)))
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,-10,10); a.Println;
var k:=a.Where(t->t=0).Count;
if k>0 then Writeln('Кол-во нулевых элементов равно ',k)
else Writeln('Нулевых элементов нет')
end.
Примеры
-7 9 -4 -3 0 -4 7
Кол-во нулевых элементов равно 1
-3 -8 -8 9 10 2 10
Нулевых элементов нет