7.0




7.3. - 4


for j:=1 to 6 do

if x[i,j]<min then

begin

min:=x[i,j];

jmin:=j;

end;

x[i,jmin]:=x[i,1];

x[i,1]:=min;

end;

for i:=1 to 3 do

begin

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

writeln;

end;

End.

2.

. .
.

Program D2_2;

Var

C: array [1..8, 1..4] of real;

S: array [1..4] of real;

i, j: integer;

Begin

writeln( C);

for i := 1 to 8 do

for j := 1 to 4 do read(c[i,j]);

for j := 1 to 4 do

begin

s[ j ] := 0;

for i := 1 to 8 do s[ j ]:= s[ j ] + c[i,j];

s[ j ] := s[ j ]/8;

end;

for j := 1 to 4 do write(s[ j ]:8:2)

writeln;

End.

, s[j] ,

,
. .

8.