Question

Составьте программу, которая формирует массив, содержащий 12 случайных вещественных чисел от -1 до 3, и подсчитывает произведение всех отрицательных чисел.
Вывод - в столбец с двумя десятичными знаками

Answer 1

PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)

1. program task31143948;
2. const
3.  N = 12;
4. var
5.  arr: array[1..N] of real;
6.  Sum: real;
7. begin
8.  Sum := 1;
9.  for var i := 1 to N do
10.    begin
11.      arr[i] := Random()*4 - 1;
12.      Writeln(arr[i]:5:2);
13.      if arr[i] < 0 then
14.        Sum := Sum * arr[i]
15.    end;
16.  if Sum = 1 then
17.    Write('ПРОИЗВЕДЕНИЕ = 0')
18.  else
19.    Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
20. end.