Const n=10; 
var a:array[1..n] of integer;
k,s,i:integer; 
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>0 then begin k:=k+1; s:=s+a[i]; end;
if k>0 
 then writeln('Среднее значение положительных элементов = ',s/k)
 else writeln('Положительных элементов нет');  
end.

Пример:
Исходный массив:
-10  3  -9  -7  -3  -10  -7  6  10  4  
Среднее значение положительных элементов = 5.75