Question

Дается последовательность из N чисел. Найдите количество различных чисел.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000000). В следующей строке задаются N целых чисел, каждое из которых меньше или равно 1000000.
Формат выходных данных
Выведите ответ к задаче

Answer 1

//Pascal
var a,n,c,i:longint;    MLP: array [1..1000000] of integer;begin  read(n);  for i:=1 to n do    begin    read(a);    if (MLP[a]=0) then c+=1;    MLP[a]:=1;    end;  write(c);end.