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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Похожие записи/страницы:

Leave a Comment