Спо оптимизации по информатике нужно решить в экселе с «поиска решения»

ответ:Ужасы или хоррор (англ. horror) — жанр фантастики, который предназначен устрашить, напугать, шокировать или вызвать отвращение у своих читателей или зрителей, вызвав у них чувства ужаса и шока. Литературный историк Дж. А. Куддон[en] определил ужасы как «фрагмент художественной литературы в прозе переменной длины … которая шокирует или даже пугает читателя, или, возможно, вызывает чувство отвращения или антипатии».[1] Авторы произведений в жанре «ужасы» создают жуткую и пугающую атмосферу. Ужас часто сверхъестественный, хотя может быть и не сверхъестественным. Часто главная угроза произведения в жанре «ужасы» может быть истолкована как метафора больших опасений общества: фильмы о зомби — страх перед каннибализмом, о оборотнях — самого себя, о вампирах — некрофилии, слэшеры — серийных убийц и

Объяснение:

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.