Дан массив, содержащий 2020 целых чисел. Необходимо определить количество «уникальных»...

Question

Дан массив, содержащий 2020 целых чисел. Необходимо определить количество «уникальных» значений элементов этого массива, то есть количество значений элементов без учёта их возможных повторов. Например, в массиве из 8 элементов, равных соответственно 4; 6; 3; 3; 6; 4; 5; 4, уникальными значениями являются 3; 4; 5; 6, значит, ответом будет 4 — их количество. Исходные данные объявлены так, как показано ниже. Запрещается использовать не описанные переменные, но допускается не использовать некоторые из них

---

Answer 1

Ответ:

pascal

Объяснение:

const K = 8;

var

 b : array [0..K - 1] of integer;

 x, y, z, count : integer;

begin

 for x := 0 to K - 1 do

   readln(b[x]);

 for x := 0 to K - 2 do

   for y := x + 1 to K - 1 do

     if b[x] > b[y] then

     begin

       z := b[x];

       b[x] := b[y];

       b[y] := z;

     end;

 z := 1;

 write(b[0], ', ');

 for x := 1 to K - 1 do

     if b[x] <> b[x - 1] then

     begin  

       write(b[x], ', ');

       inc(z);

     end;

 writeln();

 writeln('Кол-во уникальных элементов : ', z);

end.