Каждый элемент массива F(10) разделить на заданное число x — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
REM program
CLS
DIM F(10)
 
INPUT "Enter x: ", x
 
IF x <> 0 THEN
    FOR i = 1 TO 10
        F(i) = (INT(RND * 100) + 1)
        PRINT "F(", i, ") = ", F(i)
        PRINT "Relust: ", F(i) / x
    NEXT i
END IF
 
END

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

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

Leave a Comment