Про язык программирования вы так ничего и не написали, да и про массив ни слова пояснений
На Pascal:
Код:
var i,n: integer;
mas: array[1..10] of integer;
p: longint;
begin
randomize;
p:=1; n:=0;
for i:=1 to 10 do begin
mas[i]:=random(100)-50;
if mas[i]>0 then begin inc(n); p:=p*mas[i]; end;
writeln(mas[i]);
end;
writeln;
writeln('kol-vo pozitive ',n);
writeln('prouzv pozitive',p);
readln;
end.