Составить программу заполнения массива из 10 элементов случайными числами и подсчитать произведение его элементов на языке Pascal

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

program CalculateProduct;

var
arr: array[1..10] of integer;
i: integer;
product: longint;

begin
randomize;

// заполнение массива случайными числами
for i := 1 to 10 do
begin
arr[i] := random(100) + 1;
writeln('Элемент ', i, ': ', arr[i]);
end;

// нахождение произведения элементов массива
product := 1;
for i := 1 to 10 do
begin
product := product * arr[i];
end;

writeln('Произведение элементов массива: ', product);

end.