Question

В массиве из 30 элементов числа образуют неубывающую последовательность. найти количество различных чисел в массиве

Answer 1

===== PascalABC.NET =====

begin

 var a:= ArrRandom(30, -99, 99);

 Sort(a);

 a.Println;

 Println('Количество различных чисел:', a.Distinct.Count)

end.

На самом деле в этом решении упорядоченность в массиве значения не имеет, что можно проверить, удалив или закомментировав строку с Sort(a);