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

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

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

Leave a Comment