Дан массив чисел T=(t1,t2...tk), состоящий из положительных элементов. Найти среднее гармоническое S=k/(1/t1+1/t2+...1/tk)/

code: #basic
INPUT"vvedite kol-vo chisel ",k
DIM t(k)
RANDOMIZE TIMER
FOR i=1 TO k
t(i)=INT(RND*10)+1
NEXT
PRINT"massiv"
FOR i=1 TO k
PRINT t(i);
NEXT
PRINT
FOR i=1 TO k
sum=sum+1/t(i)
NEXT
PRINT"srednee garmonicheskoe=";k/sum

автор: кот Бегемот

Поделиться:

Похожие статьи: