Дано натуральное число n и целочисленный массив A(n). Найти количество различных чисел в...

Question

Дано натуральное число n и целочисленный массив A(n). Найти количество
различных чисел в этом массиве, вывести также сами эти числа.
Например, в массиве, состоящем из элементов
[5,7,5] различных чисел два (5 и 7).}
Программа в PascalABC.Net

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var A:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
  a.Distinct.Print;
  Writeln(' : ',A.Distinct.Count,' разных чисел')
end.

Пример
n= 13
4 -2 5 -5 -5 1 -2 5 -4 -2 -2 -4 -1
4 -2 5 -5 1 -4 -1 : 7 разных чисел