Дано натуральное число n, действительная матрица [a i j] i=1,…,n; j=1,…,n. Получить последовательность элементов главной диагонали A11,A22,…,Ann.- QBasic(Бейсик)

FOR i = 1 TO n
    PRINT a(i, i);
NEXT

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