Дан массив целых чисел, размерность которого N. Подсчитать, сколько в нем разных элементов.
Дан
массив целых чисел, размерность которого 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
Вроде так
Не нашли ответ?
Похожие вопросы