Паскаль абс написать программу вычисления произведения положительных элементов третьей строки двумерного массива целых чисел паскаль абс

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

Вот программа на языке Pascal, которая вычисляет произведение положительных элементов третьей строки двумерного массива целых чисел:

program CalculateProduct;
const
N = 3;
M = 3;
var
i, j, product: integer;
arr: array[1..N, 1..M] of integer;
begin
product := 1;
// Ввод элементов массива
for i := 1 to N do
begin
for j := 1 to M do
begin
write('Введите элемент массива arr[', i, ',', j, ']: ');
readln(arr[i, j]);
end;
end;
// Вывод массива
writeln('Массив arr:');
for i := 1 to N do
begin
for j := 1 to M do
begin
write(arr[i, j], ' ');
end;
writeln;
end;
// Вычисление произведения положительных элементов третьей строки массива
for j := 1 to M do
begin
if arr[3, j] > 0 then
product := product * arr[3, j];
end;
// Вывод результата
writeln('Произведение положительных элементов третьей строки массива: ', product);
end.

Программа сначала запрашивает у пользователя ввод элементов двумерного массива arr, затем выводит введенный массив и вычисляет произведение всех положительных элементов третьей строки. Результат выводится на экран.