Составьте программу, которая формирует массив, содержащий 12 случайных вещественных чисел от -1 до 3, и подсчитывает произведение всех отрицательных чисел. вывод - в столбец с двумя десятичными знаками
PascalABC.NET 3.4.2, сборка 1978 (12.02.2019) program task31143948;const N = 12;var arr: array[1..N] of real; Sum: real;begin Sum := 1; for var i := 1 to N do begin arr[i] := Random()*4 - 1; Writeln(arr[i]:5:2); if arr[i] < 0 then Sum := Sum * arr[i] end; if Sum = 1 then Write('ПРОИЗВЕДЕНИЕ = 0') else Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);end.
