Pascal

определить каких элементов в массиве больше положительных отрицательных или нулевых