zadach83.BAS

{* Задача83 *}

REM basic

' Создать массив A(N, N)), состоящий из случайных чисел от 1 до 9. Вывести массив. Найти S=(X+Y)/10, где X - номер столбца, содержащего максимальный элемент массива, Y – сумма элементов второстепенной диагонали.


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
  Max = 0   
  For iy = 1 To N
     Y = Y + A(N - iy + 1, iy)
     For ix = 1 To N
        If A(ix, iy) > Max Then Max = A(ix, iy): X = ix
  Next ix, iy
  PRINT "S ="; (X + Y) / 10
End