Дан квадратный массив из n элементов. найти произведение элементов первой строки решить на паскале

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

program PascalExample;

const
n = 5; // размер массива

var
arr: array[1..n, 1..n] of Integer; // объявление массива
i, j, product: Integer;

begin
// заполнение массива случайными числами
Randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
arr[i, j] := Random(10) + 1; // случайное число от 1 до 10
Write(arr[i, j], ' ');
end;
Writeln;
end;

// вычисление произведения элементов первой строки
product := 1;
for j := 1 to n do
begin
product := product * arr[1, j];
end;

Write('Произведение элементов первой строки: ', product);
end.