Дан

массив целых чисел, размерность которого 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

Вроде так