Решите задачу используя двумерный массив. Найти произведение злементов двумерного массива а=[ [1, 2, 3, 4], [5, 6], [7, 8,9]]​

Var a :array [1..20, 1..20] of real;

   n,i,j: Integer;

   p:real;

begin

   Write ('Введите размерность:  n = ');

   ReadLn (N);

   WriteLn ('Введите элементы массива:');

for i := 1 to n do

for j := 1 to n do

   Begin

   Write ('a[', i,',', j,'] = ');

   ReadLn (a[i, j]);

   End;

p:= 1;

for i := 1 to n do

for j := 1 to n do

if (a[i,j])<0 then p:=p*a[i,j];

WriteLn ('Произведение всех отр. чисел: ',p: 6: 1);

end.

Объяснение: