Получить матрицу по правилу

@NewSky · Регистрация: 19.12.2010

1 2 3 ... 9 10
0 1 2 ... 8 9
0 0 1 ... 7 8
. . . ... . .
0 0 0 ... 0 1

@softmob · 19.12.2010, 19:17

PureBasic

CLS
n = 10
DIM a(n, n)
FOR i = 1 TO n
    c = 0
    FOR j = i TO n
        c = c + 1
        a(i, j) = c
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT

@NewSky 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
		1
	Получить матрицу по правилу 19.12.2010, 19:10. Показов 942. Ответов 1 Метки нет (Все метки) 1 2 3 ... 9 10 0 1 2 ... 8 9 0 0 1 ... 7 8 . . . ... . . 0 0 0 ... 0 1 0

Опции темы

Получить матрицу по правилу

Решение