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

Ответы (1)

Гимрат 13.05.2025 5
//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.

Знаете правильный ответ?

Думаешь ответы не верны?

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

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: