Дан массив целых чисел, размерность которого n. подсчитать, сколько в нем разных элементов.

Раз массив уже дан, то не стала писать программу ввода элементов, а так само вычисление кол-ва элементов вот: 
Dim A(N)
T=0
For i= 1 to N-1
k=0
For j= i+1 to N
If A(i) = A(j) then k=k+1
Next j
if k≥1 then T=T+1
Next i
S = N - T
Print S

Вроде так