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

1

Ответы и объяснения

2014-02-10T19:51:07+00:00
Раз массив уже дан, то не стала писать программу ввода элементов, а так само вычисление кол-ва элементов вот: 
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

Вроде так