var
a:array [1..4,1..5] of integer;
i,j,p:integer;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10)-5;
write (a[i,j]:2);
if a[i,j]<0 then p:=p*a[i,j];
end;
writeln;
end;
write ('p=',p);
readln
end.

#include <stdio.h>
#include <time.h>
using namespace std;
int main ()
{
    srand(time(NULL));
    int a[4][5],i,j,p;
    for (i=0;i<4;i++){
    for (j=0;j<5;j++){
        a[i][j]=rand()%10;
        printf ("%d",a[i][j]);
        if (a[i][j]<0)
        p*=a[i][j];
    }
    printf("\n");
    }
    printf ("P=%d",p);
getchar();
}