СРОЧНО ПОЖАЛУЙСТА Дан массив, содержащий 2020 целых чисел. Необходимо определить...

Question

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

---

Answer 1

#include

#include

using namespace std;

#define ll long long

#define ld long double

signed main(){

  set unique;

  for(int i = 0; i < 2020; i++){

      ll x;

      cin >> x;

      unique.insert(x);

  }

  cout << unique.size();</strong>

}

Comments

Это Паскаль?

---

Мне надо на Паскале

Answer 2

Ответ:

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.