Перейти к содержимому


Различные элементы


В этой теме нет ответов

#1 Санек

    Продвинутый пользователь

  • Администраторы
  • 37 сообщений
  • ГородВитебск

Отправлено 22 декабря 2011 - 10:50

Вводятся число n. Далее идут n чисел. Найти количество различных чисел.

Входные данные

Сначала вводится n - количество чисел (n<=1000). Далее идут n чисел.

Выходные данные

Число - ответ на задачу.

Решение

var a:array[1..1000] of integer;
    i
,j,n:integer;
begin
readln
(n); //ввод количества элементов
for i:=1 to n do  //ввод элементов массива
  read
(a[i]);
i
:=1;
while (i<10) and (j<n+1) do //подсчет количества различных элементов
 
begin
   j
:=i+1;
   
while (j<n+1) and (a[i]<>a[j]) do
    j
:=j+1;
   i
:=i+1;
 
end;
if i<11 then writeln('В массиве ',i,' одинаковых элементов')
         
else writeln('Все элементы массива различны');
end.






Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных