1.
const n=5; m=4;
var a:array[1..n,1..m] of integer;
i,j,p,sum:integer; 
begin
Randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(27)-12;
 write(a[i,j]:5);
 end;
writeln;
end;
p:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j] mod 2<>0 then p:=p*a[i,j];
writeln('p = ',p);  
sum:=0;
for i:=1 to n do sum:=sum+a[i,2];
writeln('sum = ',sum);
end.

Пример:
  -11    9   -3   -9
   12   -6  -10   -7
    1   -2    0   -2
   -6  -12   -8   -1
   -9   -2   -8   -9
p = -1515591
sum = -13

2.
const n=3;
var a:array[1..n,1..n] of integer;
i,j:integer; 
begin
for i:=1 to n do 
 for j:=1 to n do a[i,j]:=i-j;
for i:=1 to n do begin
 for j:=1 to n do write(a[i,j]:5);
 writeln;
 end;
end.