Информацию следует считать особым видом ресурса, при этом имеется ввиду толкование "ресурса" как запаса неких знаний материальных предметов или энергетических, структурных или каких-либо других характеристик предмета. В отличие от ресурсов, связанных с материальными предметами, информационные ресурсы являются неистощимыми и предполагают существенно иные методы воспроизведения и обновления, чем материальные ресурсы. Рассмотрим некоторый набор свойств информации:
1) запоминаемость;
2) передаваемость;
3) преобразуемость;
4) воспроизводимость;
5) стираемость.
Свойство запоминаемости - одно из самых важных. Запоминаемую информацию будем называть макроскопической (имея ввиду масштабы запоминающей ячейки и время запоминания). Именно с макроскопической информацией мы имеем дело в реальной практике.
Передаваемость информации с каналов связи (в том числе с помехами) хорошо исследована в рамках теории информации К.Шеннона. В данном случае имеется ввиду несколько иной аспект информации к копированию, т.е. к тому, что она может быть "запомнена" другой макроскопической системой и при этом останется тождественной самой себе. Очевидно, что количество информации не должно возрастать при копировании.
Воспроизводимость информации тесно связана с ее передаваемостью и не является ее независимым базовым свойством. Если передаваемость означает, что не следует считать существенными отношения между частями системы, между которыми передается информация, то воспроизводимость характеризует неиссякаемость и неистощимость информации, т.е. что при копировании информация остается тождественной самой себе.
Фундаментальное свойство информации - преобразуемость. Оно означает, что информация может менять и форму своего существования. Копируемость есть разновидность преобразования информации, при котором ее количество не меняется. В общем случае количество информации в процессах преобразования меняется, но возрастать не может. Свойство стираемости информации также не является независимым. Оно связано с таким преобразованием информации (передачей), при котором ее количество уменьшается и становится равным нулю.
Объяснение:
Можно пойти другим путём. Отсортируем массив A[i] за n log n, а потом для того, чтобы определить уникальные элементы, достаточно одного прохода по массиву.
Я буду сортировать сортировкой слиянием, вы можете использовать любую другую достаточно быструю сортировку.
procedure merge(var a: array of longint; left1, right1, left2, right2: integer);
var
temp: array of longint;
i, j, k: integer;
begin
setLength(temp, right1 - left1 + right2 - left2 + 2);
i := left1;
j := left2;
k := 0;
while (i <= right1) and (j <= right2) do
begin
if a[i] <= a[j] then
begin
temp[k] := a[i];
inc(i);
end else begin
temp[k] := a[j];
inc(j);
end;
inc(k);
end;
while i <= right1 do
begin
temp[k] := a[i];
inc(k);
inc(i);
end;
while j <= right2 do
begin
temp[k] := a[j];
inc(k);
inc(j);
end;
for i := left1 to right1 do
a[i] := temp[i - left1];
for j := left2 to right2 do
a[j] := temp[j - left2 + right1 - left1 + 1];
end;
procedure mergeSort(var a: array of longint; left, right: integer);
var
t: longint;
begin
if right - left = 0 then exit;
if right - left = 1 then
begin
if a[left] > a[right] then
begin
t := a[left];
a[left] := a[right];
a[right] := t;
end;
exit;
end;
mergeSort(a, left, (left + right) div 2);
mergeSort(a, (left + right) div 2 + 1, right);
merge(a, left, (left + right) div 2, (left + right) div 2 + 1, right);
end;
var
a: array of longint;
i, n, count: integer;
begin
read(n);
setLength(a, n);
for i := 0 to n - 1 do
read(a[i]);
mergeSort(a, 0, n - 1);
count := 1;
for i := 1 to n - 1 do
if a[i] <> a[i - 1] then
inc(count);
writeln(count);
end.