Дан

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

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

Question

Информатика

Аграфена

13 ноября, 09:32

Дан

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

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

+5

Ответы (1)

Знаете ответ?

Митуля · Answer 1

Раз массив уже дан, то не стала писать программу ввода элементов, а так само вычисление кол-ва элементов вот:

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

Вроде так

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

Дан

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

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