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

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