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

program zz1;

var i, k, n, v, j:integer; / / задаем переменные целого типа

m:array [1 ... 1000000] of integer;

begin

readln (n); / / вводим количество чисел в последовательности

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

begin

for j:=1 to n do

if m[i] = m[j] then k:=k+1; / / считаем сколько раз встречается в последовательности число

if k=1 then v:=v+1; / / если число встретилось один раз, то считаем ответ

k:=0;

end;

write (' количество различных чисел = ', v); / / выводим ответ

end.