Дана матрица А(N,N). Поменять местами главную и побочную диагонали- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
n = 3
DIM a(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT "element", a(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    SWAP a(i, i), a(i, n + 1 - i)
NEXT
 
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT " "; a(i, j)
    NEXT
NEXT

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

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

Leave a Comment