7.0



7.3. - 3


begin

if a[i,j]>0 then P1 := P1 * a[i,j];

if a[i,j]<0 then P2 := P2 * a[i,j];

end;

Z := P1/abs(P2);

writeln(Z=, Z:10:2);

End.

2.

, , , .

:

L1 ;

L2 ;

L= |L1-L2|.

Program D1_2;

Var

B: array [1..5, 1..5] of integer;

i, j, L1, L2, L: integer;

Begin

writeln( B);

for i := 1 to 5 do

for j := 1 to 5 do read(b[i,j]);

L1 := 0;

L2 := 0;

for i := 1 to 5 do

for j := 1 to 5 do

if b[i,j]=0 then

begin

if i>j then L1 := L1+1;

if i<j then L2 := L2 +1;

end;

L := abs(L1 L2);

writeln(L=, L);

End.

1.

. .

Program D2_1;

Var

X: array [1..3,1..6] of real;

i, j, jmin: integer;

min: real;

Begin

writeln( X);

for i:= 1 to 3 do

for j := 1 to 6 do read(x[i,j]);

for i:=1 to 3 do

begin

min:=+1E6;