{* Задача79 *}

REM basic

' Дан массив A(N, N), состоящий из случайных чисел от 1 до 9. Вывести сам массив, а также сумму элементов главной и второстепенной диагонали.


CLS : INPUT "Vvedite N: ", N
Dim A(N, N) As Integer
 RANDOMIZE TIMER
 For iy = 1 To N
    For ix = 1 To N
    A(ix, iy) = RND * 8 + 1
    PRINT A(ix, iy);
    Next: PRINT
 Next
 For i = 1 To N
   Sgl = Sgl + A(i, i)
   Svt = Svt + A(N - i + 1, i)
 Next
 PRINT "Summa glavnoj        :"; Sgl
 PRINT "Summa vtorostepennoj :"; Svt
End