Предмет: Информатика,
автор: korra2000
Дано натуральное число n и целочисленный массив A(n). Найти количество
различных чисел в этом массиве, вывести также сами эти числа.
Например, в массиве, состоящем из элементов
[5,7,5] различных чисел два (5 и 7).}
Программа в PascalABC.Net
Ответы
Автор ответа:
0
// 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 разных чисел
Интересные вопросы
Предмет: Українська мова,
автор: scripit8
Предмет: Литература,
автор: superlizasemeniaka
Предмет: Українська мова,
автор: kunak81
Предмет: Математика,
автор: лерони03
Предмет: Математика,
автор: андрій97