На одну чашу весов поместим 2 монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Допустим, перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. Иначе фальшивой окажется более тяжелая из двух сравниваемых монет.
Const n=7; Var ma:array[1..n,1..n] of integer; countn,countp,i,j:integer; sr:real; begin for i:=1 to n do for j:=1 to n do begin readln(ma[i][j]); if ma[i][j]>0 then inc(countp) else if ma[i][j]<0 then inc(countn); end; for i:=1 to n do begin for j:=1 to n do write(ma[i][j]:4); writeln; end; writeln('Count of positive=',countp,', count of negative=',countn); for j:=1 to n do begin sr:=0; for i:=1 to n do sr+=ma[i][j]; writeln(j,' ',sr/n); end; end.
begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.