Дан массив из 10 целых чисел. Создать новый массив , записанный в обратном порядке — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DIM a(10), b(10) AS INTEGER
FOR i = 1 TO 10
    INPUT "Vvedite chislo ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO 10
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 10
    b(i) = a(11 - i)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO 10
    PRINT b(i);
NEXT

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

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

Leave a Comment