Программу в паскале. Составить программу нахождения произведения положительных чисел одномерного массива В(10), элементы которого задаются датчиком случайных чисел.

Предыдущий
вопрос Следующий
вопрос

program MultiplicationArray
va
B: array[1..10] of integer
i, product: integer
begi
Randomize
// Заполнение массива случайными числам
for i := 1 to 10 d
begi
B[i] := Random(10) + 1; // Генерация случайного числа от 1 до 1
end
// Вывод элементов массива на экра
writeln('Элементы массива B:')
for i := 1 to 10 d
begi
write(B[i], ' ')
end
writeln
// Нахождение произведения положительных чисел массив
product := 1
for i := 1 to 10 d
begi
if B[i] > 0 the
begi
product := product * B[i]
end
end
// Вывод результата на экра
writeln('Произведение положительных чисел массива B равно ', product)
end.

Эта программа создает массив из 10 элементов, заполняет его случайными числами от 1 до 10, выводит элементы массива на экран, находит произведение положительных чисел и выводит его на экран.