Составьте программу вычисления произведения тех значений элементов…

Условие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. Если оно не нужно — удали фрагмент 'and (a[i,j]<>0) 'Program n1; Uses CRT; Const n=10; Var a: array[1… n,1… n] of integer; i,j: integer; p: longint; beginp: =1; For i: =1 to n do begin For j: =1 to n do begin a[i,j]: =random (50); if (a[i,j]<15) and (a[i,j]<>0) then p: =p*a[i,j]; write (a[i,j]: 3); end; writeln; end; writeln ('Proizvedenie=',p); readlnend.