Дан двумерный массив, который содердит не более 10 строк и 10 столбцов. найти сумму тех элементов, которые больше элемента стоящего на главной диагонали в данной строке.

Input n
dim a(n,n)
dim b(n)
for i=1 to n
  for j=1 to n
    a(i,j)=int(rnd*100)
  next j
next i
for i=1 to n
  b(i)=a(i,i)
next i
s=0: f=1
for i=1 to n
  for j=1 to n
    if a(i,j)>b(f) then s=s+a(i,j)
  next j
  f=f+1
next i
print s