Дан целочисленный массив размера N. Найти количество различных элементов в данном массиве.

Question

Дан целочисленный массив размера N. Найти количество различных элементов в данном массиве.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018

// Внимание! Если программа не работает, обновите версию!
begin

var n:=readinteger('n=');

var mas:=ArrRandom(n,-99,99); 

Writeln('количество различных элементов->',mas.Distinct.Count);

end.