7.0




7.2. - 3


read(n);

writeln( Ւ);

for i := 1 to n do read(x[i]);

S := 0;

P := 1;

for i := 1 to n do

begin

S := S + x[i];

P := P * x[i];

end;

S := S/n;

P := exp(1/n * ln(P));

writeln(S =, S:6:2);

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

End.

3. .

.

.

, .

:

min ;

imin ;

max ;

imax .

Program _3;

Var

T: array [1 10] of real;

i, imin, imax: integer;

min, max: real;

Begin

writeln( T);

for i := 1 to 10 do read(t[i]);

min := +1E6;

max := -1E6;

for i := 1 to 10 do

begin

if t[i]<min then

begin

min := t[i];

imin := i;

end;

if t[i]>max then

begin

max := t[i];

imax := i;

end;

end;

t[imin]:= max;

t[imax]:= min;

for i := 1 to 10 do write(t[i]:6:2);

writeln;

End.