1.
<span><span><span><span>
10.00
</span></span><span><span>
-3.55
</span></span><span><span>
0.40
</span></span><span><span>
55.00
</span></span><span><span>
</span></span></span></span>
2.
<span><span><span><span>
1.538E-02
</span></span><span><span>
1.255E+02
</span></span><span><span>
4.582E+02
</span></span><span><span>
2.500E+02
</span></span></span></span>
3.
В Паскале
P real
<span>В VBA
</span>Dim P As Variant
<span> </span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.
<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864
6.3
const
n = 5;
var
i,j : integer;
ch,zn : integer;
r : real;
begin
r := 0;
for i := 1 to n do
begin
ch := 0;
zn := 1;
for j := 1 to i do
begin
ch := ch + j;
zn := zn * j;
end;
//writeln (i,' ',ch,'/',zn);
r := r + ch/zn;
end;
writeln (r:3:2);<span>
end.</span>
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
