Const n=10 ;var A: array [1..n] of integer;p, min, i, : integer;beginrandomize;for i:= 1 to n dobeginA[i]:= -100 + random (200);write (A[i]: 5);end;writeln;min:=100000000;p:=1;for i:=1 to n doif A[i] < 0 then p:=p*A[i] else Begin if p< min then min:=p; p:=1; End; if p<min then min:=p; writeln ('min p=' , min );end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
