{* Задача63 *}

REM basic

' Напишите программу вычисления среднего арифметического элементов квадратной матрицы размером 5 на 5, стоящих на главной диагонали.


N = 5
Dim A(1 To N, 1 To N) As Integer
Dim i As Integer, S As Integer
For i = 1 To N
For k = 1 To N
INPUT A(i, k)
Next k
Next i
S = 0
For i = 1 To N
S = S + A(i, i)
Next i
PRINT Using "###.##"; S / N
End