Найти количество положительных, отрицательных и нулевых чисел!!

[Александр Маслов]

Создание проекта - Дано 100 вещественных чисел, которые вводятся с помощью генератора случайных чисел.Найти количество положительных, отрицательных и нулевых чисел.(В Delphi 7)


Суть проблемы: не знаю как найти количество положительных, отрицательных и нулевых чисел( что надо написать в коде?).Подскажите пожалуйста!!!

if A[i,j] < 0 then

Не знаю что написать дальше ???Подскажите!!!

[ACE Valery]

Синтаксис может быть неправильный, но принцип вот:

if A[i,j] < 0 then
count_negative := count_negative + 1
else if A[i,j] > 0 then
count_positive := count_positive + 1
else
count_zero := count_zero + 1

[Александр Маслов]

Спасибо!!!