Вматрице h(6×5) определите в каждой строке произведение положительных элементов

Будет цикл в цикле. 1 цикл перебор 6 элементов, второй перебор 5 столбцов.
В цикле проверяешь какой элемент if a(I, j)>0 then x(i):=x (i)*a(I, j)