Сформируйте массив В(N) следующим образом: В(1)=-1 В(2)=1 В(3)=-2 В(4)=2 В(5)=-3 В(6)=3 В(7)=-4 — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
 
INPUT "inoput N ", N
 
DIM B(N) AS INTEGER
 
FOR i = 1 TO N STEP 2
    j = j + 1
    B(i) = j
    IF i < N THEN
        B(i + 1) = -j
    END IF
NEXT i
FOR i = 1 TO N
    PRINT B(i);
NEXT i

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

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

Leave a Comment