, (, p), , , .
8. D, n (n£20). k k .
Program Prim8;
var
d: array[1..20] of real;
i,n,k: integer;
p: real;
begin
writeln(' n');
readln(n);
writeln(' ');
for i:=1 to n do
read(d[i]);
p:=1;
k:=0;
for i:=1 to n do
if d[i]>0 then
begin
p:=p*d[i];
k:=k+1;
end;
if k=0 then
writeln(' ')
else
begin
p:=exp(1/k*ln(p));
writeln('p=', p:7:2);
end;
end.
: :
I
n = 11
D
3 5 4 -7 1 2 -9 6 -8 3 -10 p= 2.99
II
n = 5
D
-2 -5 -6 -9 -7
9. , n , (n£20).
repeat - until.
i, (i:=2), i (i:=i+2).
Program Prim9;
var
c: array[1..20] of real;
i,n: integer;
: real;
begin
writeln(' n');
readln(n);
writeln(' ');
for i:=1 to n do
read(c[i]);
:=1;
i:=2;
repeat
p:=p*c[i];
i:=i+2;
until i>n;
writeln('p=', p:8:2);
end.
: :
n = 9 p= 210.00
C
3 2 -1 7 5 -3 8 -5 1
10. , n , (n£20).
Program Prim10;
var
a,b: array[1..20] of real;
i,n,k: integer;
begin
writeln(' n');
readln(n);
writeln(' ');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if a[i]>0 then begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do
writeln('b[', i, ']=', b[i]:5:2);
end.
: :
n = 10 b[1]= 4.00
A b[2]= 5.00
4 5 -3 1 7 -2 12 -8 -14 26 b[3]= 1.00
b[4]= 7.00
b[5]=12.00
b[6]=26.00
11. B, n (n£20).
 |
Program Prim11;
label 1;
var
b:array[1..20] of real;
i,n:integer;
begin
writeln(' n');
readln(n);
writeln(' ');
|
|
|
for i:=1 to n do read(b[i]);
for i:=1 to n do
if b[i]<0 then begin
writeln('b[',i,']=',b[i]:6:2);
goto 1;
end;
writeln(' ');
1: end.
: :
I n = 7 I b[3]= -5.00
B
3 8 -5 -2 6 -9 12
II n = 6 II
B
4 7 2 9 4 1
