Найти количество элементов массива А(10), значения которых лежат между средним арифметическим элементов массива В(10) и средним геометрическим элементов массива С(10)
ответ в виде программы для Паскаля
125
325
Ответы на вопрос:
Function Task(A() As double, B() as double, C() as double) As integer
n%=Ubound(A,1)
m%=Ubound(B,1)
k%=Ubound(C,1)
s#=0
p#=1
For i%=1 to m%
s#=s#+B(i%)
next i%
s#=s#/m%
For i%=1 to k%
p#=p#*B(i%)
next i%
p#=p#^(1/k%)
if abs(p#-s#)<=1.0E-15 then
Task=0
Exit function
End if
if p# > s# then
t#=p#
p#=s#
s#=t#
End id
z%=0
for i%=1 to n%
if A(i%) >= p# And A(i%)<=s# then z%=z%+1
Next i%
task=z%
End Function
Популярно: Информатика
-
Bogdasha30060t20.08.2020 06:34
-
муза200726.12.2020 20:15
-
dobryninatonya18.09.2021 10:47
-
жасик007117.08.2021 03:03
-
TonyX230.04.2021 15:46
-
natahakovbasuk28.05.2021 14:47
-
msveronika04422.10.2022 03:57
-
zetexer103.09.2021 04:00
-
JustTonight30.09.2022 02:12
-
Valeria2009104.09.2020 05:51