а)
const n=20; 
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do begin
 a[i]:=random(11)-5;
 write(a[i],' ');
 end;
writeln;
end;
procedure p2(var a:ar; var p:real);
var i:integer;
begin
p:=1;
for i:=1 to n do 
 if a[i]<0 then p:=p*a[i];
end;
var a:ar; p:real;
begin
Randomize;
p1(a);
p2(a,p);
writeln('p=',p);
end.

Пример:
4 1 -1 -3 0 1 2 -4 -3 5 -1 -4 1 4 3 3 -5 4 3 -5 
p= 3600

б)
const n=1000;
type ar=array[1..n] of integer;
var a:ar; c,i,l:integer;
procedure mas(c:integer; var a:ar; var l:integer);
var k,m,j:integer;
begin
k:=1;
l:=0;
while k<c do
 begin
 k:=k+1;
 m:=0;
 for j:=2 to trunc(sqrt(k)) do
  if k mod j = 0 then inc(m);
 if m=0 then begin l:=l+1; a[l]:=k; end;
 end;
end;
begin
write('c='); readln(c);
mas(c,a,l);
for i:=1 to l do write(a[i],' ');
writeln;
end.

Пример:
c=100
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97