Алгоритм на Бейсике

[olyntik]

Разработать алгоритм и написать программу на языке Бейсик для сле-дующей задачи: Дан двумерный массив А из N строк и N столбцов. Найти среднее арифметическое положительных элементов, стоящих на главной диагонали матрицы.Результат вывести на печать. Помогите пожалуйста, очень надо

[Mad_Cat]

s=0
k=0
for i = 1 to n do
if a(i,i)>0 then s=s+a(i,i):k=k+1
next i
s=s/k

так вроде(