Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементов.

Нужно на паскале

В паскали почти точно также)

Если писать на QBasice то будет примерно так:1. DIT a(i)4. IF i = 0 THEN 116. IF i > 0 THEN 137. IF I < 0 THEN 1510. END.11. PRINT i12. END.13. PRINT i14. END.15. PRINT i16. ENDМогу ошибаться) Точно не могу написать..