Различные элементы
Санек 22 дек 2011
Вводятся число n. Далее идут n чисел. Найти количество различных чисел.
Входные данные
Сначала вводится n - количество чисел (n<=1000). Далее идут 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.