В массиве найти произведение положительных чисел массива, нулевые элементы заменить числом 10.
Если нужно заполнение массива организуйте сами. Паскаль АБС. Код в приложении.
Замени. Или опубликуй текст заменим!