1) x=x+x и так 2 раза => x= 2*(5+5)=10*2=20
2)y=y*4 => y=5*4=20
Program p1;
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a<b) then b:=a;
x:=x+1;
end;
end;
Writeln('Наименьшего положительного число: ',b);
<span>end.</span>
<span> общий алгоритмический метод для нахождения оптимальных решений различных задач оптимизации, особенно дискретной и комбинаторной оптимизации. По существу, метод является вариацией полного перебора с отсевом</span>
^- конъюнкция, знак умножения(×);(операция И)
\/-дизъюнкция, знак сложения(+);(операция ИЛИ)
&-Тоже конъюнкция