7.0




7.3. - 2


.

1 2 3 <Enter>

4 5 6 <Enter>

2.

M .

, .. . , , WRITELN, .

for i := 1 to 2 do

begin

for j := 1 to 3 do write(m[i, j]:3);

writeln

end;

:

1 2 3

4 5 6

, . .

1.      .

2.      .

1.

.
, P1 P2 .

Program D_1;

Var

A: array [1..4, 1..6] of real;

i, j: integer;

P1, P2, Z: real;

Begin

writeln( );

for i := 1 to 4 do

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

P1 := 1;

P2 := 1;

for i := 1 to 4 do

for j :=1 to 6 do