22. Матрица А (5,5) делится на две части строкой 3. Найти произведение (умножение) каждой части.

Var i, j, ph, pL:integer; A:array[1 ... 5,1 ... 5] of integer; d, Sn, min:real;

begin

ph:=1; pL:=1;

for i:=1 to 5 do begin

for j:=1 to 5 do beginA[i, j]:=random (100) - 50; write (A[i, j]:4) ; end; writeln; end; writeln; writeln;

for i:=1 to 5 do begin

for j:=1 to 5 do begin

if i < 3 then begin ph:=ph * A[i, j]; write (A[i, j]:4) ; end; end;

if i < 3 then writeln; end;

for i:=1 to 5 do begin

for j:=1 to 5 do begin

if i > 3 then begin pL:=pL * A[i, j]; write (A[i, j]:4) ; end; end; writeln; end;

write ('ph = ', ph:10,'pL = ', pL:10) ; end.