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

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

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment