Здравствуйте, Андреев Павел Александрович!

dim b,c,i,j,k as integer
input "введите число строк", b
input "введите число столбцов", c
dim a(b,c) as single
for i=1 to b
for j=1 to c
input a(i,j)
next j
next i
for i=1 to b
for j=1 to c
if a(i,j)=a(1,2) then k=k+1
next j
next i
k=k-1 ' исключаем элемент a(1,2)
print "Количество элементов , равных А(1,2) = "; k

Здравствуйте, Андреев Павел Александрович!
Вам необходимо немного дополнить свой код, примерно так:
...
dim summ
summ = 0
for i=1 to n
for j=1 to n
If a(i,j) = a(1,2) then
summ = summ + 1
next j
next i
...
Примечание: если нужно найти не количество элементов, а сумму, то используйте
summ = summ +a(i,j)