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

Вроде так

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.