Помогите пожалуйста очень срочно,Заполнить одномерный массив 5 элементами случайным...

Question

Помогите пожалуйста очень срочно,Заполнить одномерный массив 5 элементами случайным образом в диапазоне от -10 до 10 .Вычислить произведение элементов массива .Произведение -288

Comments

Какой язык программирования? Паскаль? C++? Очень важно!

---

паскаль

Answer 1

//PascalABC.Net
//(c) NaaMan

var
    a : array of integer;
    n, i : integer;
    p : real;
begin
    n := 5;
    a := new integer[n];
    a := ArrRandom(n, -10, 10);
    
    p := 1;
    for i:= 0 to n-1 do
        if a[i] < 0 then p *= a[i];
    println(a);
    writeln('Произведение всех отрицательных равно ', p)
end.

---

---

---