составить алгоритм нахождения произведения отрицательных элементов массива p [1..n, 1..m], n=4,m=3 и посчитать их количесвто

увы, pascal

Объяснение:

const

 n = 4;

 m = 3;

var

 i, j, a, k: integer;

 p: array[1..n, 1..m] of integer;

begin

 a := 1;

 for i := 1 to n do

   begin

   for j := 1 to m do

   begin

     p[i, j] := round(random(101)) - 50;

     Write(p[i, j]:4);

     if p[i, j] < 0 then

     begin

       a := a * p[i, j];

       k := k + 1;

     end;

   end;

   WriteLn;

   end;

   WriteLn('Количество отрицательных элементов массива равно ', k);

   WriteLn('Их произведение равно ', a);

end.