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.