Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи: Решение ТУТ

Дан Массив Х(N). Найти в массиве количество отрицательных и положительных элементов. Если больше отрицательных, то положительные элементы заменяются на нули. В противном случае - отрицательные.

___________________________________________________________