zadach115.BAS

{* Задача115 *}

REM basic

' Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) и разделите их на максимальный элемент главной диагонали. Все переменные должны бать равны 12(i=12,j=12,n=12...).


CLS: n = 12: Dim a(n, n), y(n)
For i = 1 To n: For j = 1 To n
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
NextNext
max = a(1, 1)
For i = 1 To n
    If a(i, i) > max Then max = a(i, i)
Next
For i = 1 To n
    y(i) = a(i, i) / max
Next
For i = 1 To n: For j = 1 To n
        PRINT a(i, j);
Next: PRINT: Next
PRINT String$(80, 196)
For i = 1 To n
    PRINT y(i);
Next
End