Программа:

program test;

Uses Math;

const

 N = 5;

var

 A : array [1..N] of integer; {Массив элементов}

 i : integer;     {Счетчик цикла}

 P : Int64;      {Произведение элементов}

 mn : integer;     {Минимальный элемент массива}

 C : integer;     {Количество положительных элементов}

begin

P := 1;

C := 0;

for i := 1 to N do begin

 {Вводим очередной элемент массива}

 Read( A[i] );

 {Вычисляем произведение}

 P := P * A[i];

 {Положительные элементы подсчитываем}

 if A[i] > 0 then C := C + 1;

end;

{Находим минимальный }

mn := A[1];

for i := 2 to N do

 mn := min( mn, A[i] );

WriteLn('Произведение - ', P);

WriteLn('Количество положительных - ', C);

WriteLn('Минимальный элемент - ', mn);

end.

Результат выполнения программы: