1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | n = 10
DIM x(n)
FOR i = 1 TO n
x(i) = i
NEXT
FOR i = 1 TO n
PRINT x(i);
NEXT
FOR i = 1 TO n \ 2
SWAP x(i), x(n - i + 1)
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
PRINT x(i);
NEXT
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Ввести два одномерных массива (первый из N целых чисел, второй- из 5 различных целых чисел). Удалить из первого…
- Значения заданных переменных а,b, с перераспределить таким образом, что a, b, c станут, соответственно,…
- Даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющие нечетный индекс,…
- Необходимо первую половину элементов главной диагонали квадратной матрицы по возрастанию, вторую по убыванию-…
- Дан массив букв. Составляющих английский алфавит, но размещен не по порядку. Написать программу преобразования…
- Дана матрица с(i,j) i=1,5 j=1,5 Заменить элементы первой строки элементами, состоящими на главной диагонали, а…