Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х
Нужно с конца про нумеровать их(над ними карандашом написать 0,1,2,3,4...)потом 1×2\6 ( 6 писать как например 2в квадрате над верхом с право)(×2 потому что нужно перевести в десятичную из двоичной) получается :1×2\6+0×2\5+0×2\4+0×2\3+1×2\2+1×2\1+0×2\0=64+4+2=70( при умножении на ноль результат ноль,так што умножай то что с единицей!!!)
<span>var
</span>
<span /><span><span>a: array [</span>1..10<span>] of </span>integer;</span>
<span /><span>i : integer;</span>
<span /><span>
begin</span>
<span>
randomize;
</span>
<span /><span><span>for i:=</span>1 to 10 do </span><span>A[i]:=Random(15);</span>
<span /><span><span> for i:=</span>1 to 10 do </span><span><span>if A[i]=</span>5 then</span>
<span /><span>writeln('да то что надо ',A[i])</span><span />
<span>else
</span><span>writeln('ошибка');</span><span>
readln ;
</span>
<span><span>end.</span></span>