Количество различных элементов — 2

Дан список. Посчитайте, сколько в нём различных элементов, не изменяя самого списка.

Входные данные

Вводится список чисел. Все числа списка находятся на одной строке. Все числа целые неотрицательные и не больше 1000
1000
.

Выходные данные

Выведите ответ на задачу.

153

311

Посмотреть ответы 1

Ответы на вопрос:

ttttrrrrtttr

Информатика

4,5(47 оценок)

Var a: array [1..18] of integer; i,m: integer; begin write ('массив с данными: '); for i: =1 to 18 do begin a[i]: =random (16); write (a[i],' ') end; writeln; m: =a[1]; for i: =2 to 18 do if a[i]< m then m: =a[i]; writeln('минимальный результат: ',m) end.