Дан массив, содержащий 2020 целых чисел. Необходимо определить количество «уникальных» значений элементов этого массива, то есть количество значений элементов без учёта их возможных повторов. Например, в массиве из 8 элементов, равных соответственно 4; 6; 3; 3; 6; 4; 5; 4, уникальными значениями являются 3; 4; 5; 6, значит, ответом будет 4 — их количество. Исходные данные объявлены так, как показано ниже. Запрещается использовать не описанные переменные, но допускается не использовать некоторые из них
aidarbI4123
1
20.05.2020 07:38
2
Другие вопросы по теме Информатика
Блинь
09.08.2019 05:00
nast20171
09.08.2019 05:00
ната1187
15.03.2021 08:54
DJZargo
15.03.2021 08:54
089280ig
20.08.2019 11:20
79268888397p06sqw
20.08.2019 11:30
ujbgb
20.08.2019 11:30
Cet31072007
20.08.2019 11:30
fedos1488
20.08.2019 11:30
Популярные вопросы
- Обозначь часть слова в которой находится выделенная буква: печкой,лет,однажды,вышел,свет,,спросил,сегодня,обед...
2 - Расстояние между двумя пристанями составляет 864 км теплоход это расстояние...
2 - Решите уравнения: 48,5 - x = 37,1 55,05 - x = 33,9 22,99 - x = 17,3 только...
1 - Нам задали написать про спорт в россии заранее ....
2 - Что делают разлагатели? с трупами животных?...
2 - Придумайте рассказ от имени путешественника,посетившего пирей и афины...
1 - Площадь прямоугольника в три раза больше площади квадрата.длина прямоугольника...
1 - Вмешке находятся жетоны, номерами которых являются все трехзначные числа....
1 - Напиши все нечетные числа: а) от43до23; б) 0 и 20; в) 85 и75. запиши в...
2 - Допишите словочитания существительнымв творительном падеже со значением...
3
#include <iostream>
#include <set>
using namespace std;
#define ll long long
#define ld long double
signed main(){
set<ll> unique;
for(int i = 0; i < 2020; i++){
ll x;
cin >> x;
unique.insert(x);
}
cout << unique.size();
}
const k = 2020;
var b: array [0 .. k - 1] of integer;
x, y, z: integer;
begin
for x := 0 to k - 1 do readln(b[x]);
z:= 0;
for x := 0 to k - 1 do
begin
y := 0;
while b[y] <> b[x] do y := y + 1;
if y = x then z := z + 1
end;
writeln(z)
end.