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

program CalculateProduct;
const
N = 3;
M = 3;
var
i, j, product: integer;
arr: array$$\mathrm{1..}N,\mathrm{1..}M$$ of integer;
begin
product := 1;
// Ввод элементов массива
for i := 1 to N do
begin
for j := 1 to M do
begin
write${}^{\prime }Введитеэлементмассиваarr{[}^{\prime },i{,}^{\prime }{,}^{\prime },j{,}^{\prime }]{:}^{\prime }$;
readln$arr[i,j]$;
end;
end;
// Вывод массива
writeln${}^{\prime }Массивarr{:}^{\prime }$;
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${}^{\prime }Произведениеположительныхэлементовтретьейстрокимассива{:}^{\prime },product$;
end.

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