Вычислить сред геометрическую положительных элементов массива R(m). Массив R(m) вывести на печать — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
DIM r(m): p = 1
FOR i = 1 TO m
    r(i) = FIX(RND * 100 - 15)
NEXT
FOR i = 1 TO m
    PRINT r(i);
NEXT
PRINT
PRINT STRING$(80, 196)
FOR i = 1 TO m
    IF r(i) > 0 THEN p = p * r(i): k = k + 1
NEXT
srgeom = p ^ (1 / k)
PRINT "srgeom:"; srgeom

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

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

Leave a Comment