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

Question

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

Comments

какой язык

---

А какой можно?

---

Паскаль и C++ могу

---

Паскаль

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.

Comments

Переменная называется Sum, не знаю, как её обозвать в случае произведения чисел)) Но всё по факту - там произведение)

---

А можно как то попонятней?

---

Решение как ниже

---

а что тут непонятного?

---

Немногоне понятно, сделай решение как у челоаека снизу

---

Сделал

---

Понятно?

---

Где?

---

Что где?