Получить квадратную матрицу порядка n

11.03.2011, 18:52. **Показов** 1171. **Ответов** 1

Получить квадратную матрицу порядка n:
00........1
00.......20
00.....300
.............
n0......00

@кот Бегемот · 11.03.2011, 19:00

Сообщение от oksikat

Получить квадратную матрицу порядка n:
00........1
00.......20
00.....300
.............
n0......00

PureBasic

input n
dim a(n,n)
for i=1 to n
a(i,n-i+1)=i
next
print"massiv"
for i=1 to n
for j=1 to n
print a(i,j);
next
print
next

oksikat
		1
	Получить квадратную матрицу порядка n 11.03.2011, 18:52. Показов 1171. Ответов 1 Метки нет (Все метки) Получить квадратную матрицу порядка n: 00........1 00.......20 00.....300 ............. n0......00

Опции темы

Решение