Код 
program mas;
const n=10;
var a:array [1..n] of integer;
counter,i, mnoj:integer;
begin
counter:=0;
mnoj:=1;
for i:=1 to n do begin
a[i]:=-10+random(19);
if a[i] > 0 then begin
inc(counter);
mnoj:= a[i] * mnoj;
end;
end;
for i:=1 to n do
write(a[i],' ');
writeln('произведение равно ', mnoj ,' количество положительных элементов= ',counter);
end.