Составьте программу подсчёта числа различных элементов одномерного массива A(Q) Паскаль

Question

Составьте программу подсчёта числа различных элементов одномерного массива A(Q)
Паскаль

Comments

Что значит "различных", поконкретнее можно?

---

отрицательных

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(100, -50, 50);
    a.Println;
    Println(a.Count(x -> x < 0));
end.