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

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