Заполните массив X не более 10 элементов. Сдвинуть вправо на 2 позиции содержимое массива X и заполнить им массив Y — QBasic(Бейсик)

disel
1
Пример: X(1,2,3,4,5,6)=>Y(1,2,3,4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dCLS
INPUT "Введите размер массива (не более 10)"; n
PRINT "Введите "; n; " чисел массива:"
DIM x(n), y(n)
FOR i = 1 TO n
    INPUT x(i)
NEXT
FOR i = 1 TO n
    PRINT x(i);
NEXT
PRINT
FOR i = 1 TO n - 2
    y(i) = x(i)
NEXT
FOR i = 1 TO n - 2
    PRINT y(i);
NEXT

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

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

Leave a Comment