Program example_dom; var col_pol,col_otr,i,n,k,s:integer; a:array[1..100] of integer; Begin Randomize; writeln('Введите размерность: ');readln(n); For i:=1 to n do Begin a[i]:=-50+random(100); write(a[i]:4); end; s:=s+a[i]; inc(k); col_pol:=0; col_otr:=0; for i:=1 to n do begin if a[i]>0 then col_pol:=col_pol+1 else col_otr:=col_otr+1; end; writeln('сумма элементов массив = ',s); writeln('количество положительных элементов=',col_pol); writeln('количество отрицательных элементов=',col_otr); readln; End.
1. Взвешивем по три монеты в каждую чашу. Если какая-то чашу меньше весит, то берём три монеты с этой чаши и взвешиваем по одной в каждую чашу. Если масса одной чаши меньше другой, то мы выясним какая монета фальшивая. А если они равны,то фальшивая будет та,которая осталась(третья Монета, которую не взвесили) 2. А Если чаши будут равными, то три оставшиеся монета взвешиваем также: по одной в каждую чашу, если весы буду равны,то фальшивая будет третьей. А если весы неравны то будет ясно. Фальшивая та, которая меньше весит.
6x(b-3)=10-2x(b =2)
6b-18=10-2b-4
6b+2b= 10-4+18
8b=24
b=24:8
B=3
83+5*(Y-30=3*(8y-9)
83+5y-150=24y-27
5y-24y=-27-83+150
19y=50
y=50:19
там дальше посчитай