Дается последовательность из N чисел. Найдите количество различных чисел.Формат входных

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт