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

Приложения:

Ответы

Ответ дал: Аноним
0

#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();

}


AnnStarina: Это Паскаль?
AnnStarina: Мне надо на Паскале
Ответ дал: gfhjkmgfhjkm20
1

Ответ:

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.

Вас заинтересует