Дан массив, содержащий 2020 целых чисел. Необходимо определить количество «уникальных» значений элементов этого массива, то есть количество значений элементов без учёта их возможных повторов. Например, в массиве из 8 элементов, равных соответственно 4; 6; 3; 3; 6; 4; 5; 4, уникальными значениями являются 3; 4; 5; 6, значит, ответом будет 4 — их количество. Исходные данные объявлены так, как показано ниже. Запрещается использовать не описанные переменные, но допускается не использовать некоторые из них
Приложения:
Ответы
Ответ дал:
0
Ответ:
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.
Похожие вопросы
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад