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