Предмет: Информатика,
автор: alia198231ozixsk
Дается последовательность из N чисел. Найдите количество различных чисел.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000000). В следующей строке задаются N целых чисел, каждое из которых меньше или равно 1000000.
Формат выходных данных
Выведите ответ к задаче
Ответы
Автор ответа:
0
//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.
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.
Приложения:
Интересные вопросы