Naelam
6 год назад
Дано натуральное число n и целочисленный массив A(n). Найти количество
различных чисел в этом массиве, вывести также сами эти числа.
Например, в массиве, состоящем из элементов
[5,7,5] различных чисел два (5 и 7).}
Программа в PascalABC.Net
ОТВЕТЫ
Брюхов
Aug 3, 2019
// 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 разных чисел
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 разных чисел
285
Смежные вопросы:
