Объяснение:
рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать
Поделитесь своими знаниями, ответьте на вопрос:
Дается последовательность из n чисел. найдите количество различных чисел. формат входных данных первая строка входного файла содержит целое число n (1 < = n < = 1000000 в следующей строке n целых чисел, каждое из которых меньше или равно 1000000. формат выходных данных выведите ответ к
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.