Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.
Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
Берем наши 5 монет и делим их на 3 кучки - 2 монеты,2 монеты и 1 монета. Далее взвешиваем между собой 2 кучки по 2 монеты. Если эти кучки равны - то монета в третьей кучке, в которой находится одна монета, которая и есть золотая. Если же кучки не равны, то наша золотая монета находится в более тяжелой кучке,значит нам остается более тяжелую кучку взвесить по одной монете, которая будет тяжелее - золотая.
блок-схема данного решения в приложении