Дано натуральное число n и целочисленный массив A(n). Найти количество различных ч?
Дано натуральное число n и целочисленный массив A(n). Найти количество
различных ч??сел в этом массиве, вывести также сами эти числа.
Например, в массиве, состоящем из элементов
[5,7,5] различных чисел два (5 и 7).}
Программа в PascalABC.Net
Гость
Ответ(ы) на вопрос:
Гость // 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 разных чисел
Не нашли ответ?
Похожие вопросы