Сформировать вещественную матрицу 5х5. Вычислить творенье отрицательных частей, находящихся над и

program Project1; const N=2; var a: array [1..N, 1..N] of real; i, j: integer; p1, p2: real; begin Randomize; p1:=1; p2:=1; for i:= 1 to N do begin for j:= 1 to N do begin a[i,j]:= -5+10*Random; Write(a[i,j]:6:2); if a[i,j]lt;0 then begin if jgt;i then p1:=p1*a[i,j]; if j