Матрица С

[martel-]

Колеги привет, мне задачку дали, не понимаю где ошибка, помогите найти.
Нужно что б цифры 1 были в положение как ниже символ *, а уменя не так идёт.
0 0 0 0 0
0 0 0 0 0
1 1 1 1 1
0 1 1 1 0
0 0 1 0 0

Код: https://onlinegdb.com/csxpWCpZG

[martel-]

Закрыто. Нашел ошибку

[сфинкс]

короче:

'zvez.bas
n=5: DIM d(n,n)
FOR i=1 TO n/2+1: FOR j=1 TO i
        PRINT i,n/2+1.5-j,: PRINT i,n/2-.5+j
        d(i,n/2+1.5-j)=1: d(i,n/2-.5+j)=1
NEXT: PRINT: NEXT

FOR i=n TO n/2+1 STEP -1: FOR j=1 TO (n-i+1)
        PRINT i,n/2+1.5-j,: PRINT i,n/2-.5+j
        d(i,n/2+1.5-j)=1: d(i,n/2-.5+j)=1
NEXT: PRINT: NEXT

FOR i=1 TO n: FOR j=1 TO n
PRINT d(i,j);: NEXT: PRINT: NEXT

00100
01110
11111
01110
00100

и другие нечётные эн тоже правильно

на другие языки из qb64 qbasic переводим сами

без массива: цикл строк и внутри 3 цикла столбцов