Одномерные массивы

[Meow]

Помогите пожалуйста решить несколько задач по теме "Одномерные массивы".Я использую Pascal ABC.NET.(Можно на других Паскалях,мне главное понять алгоритм)
1.Дан массив действительных чисел.размерность которого N. Подсчитать сколько в нем положительных,отрицательных и нулевых элементов.
2.Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности.
Заранее спасибо!

[weech]

1)

for i:=1 to N do
        if arr[i] < 0 then inc(Neg) 
             else
                if arr[i]=0 then inc(Null)
                   else
                      if arr[i]>0 then inc(Plus);

2)

// Допустим, последовательность вводится с клавиатуры.
repeat
readln(buf);
if buf <> 0 then
inc(count);
until buf=0;

[BDA]

1-я

for i:=1 to N do
	if arr[i] < 0 then inc(Neg) 
		else
	if arr[i] > 0 then inc(Plus)
		else
	inc(Zero);

[s-andriano]

for i:=1 to N do
	if arr[i] < 0 then inc(Neg) 
		else
	if arr[i] > 0 then inc(Plus)
		else
	if arr[i] = 0 then inc(Zero)
		else
        inc(Errors);

[Serge_Bliznykov]

Сообщение от s-andriano

		else
        inc(Errors);

s-andriano, это что?!!!
Сферический конь в вакууме?! или просто шутка такая?!

Или я чего-то не допонимаю?!
Приведите, пожалуйста, пример (на Паскаль, разумеется), когда переменная массива не меньше нуля, не больше нуля и не равна нулю! Заранее большое спасибо.

[Stilet]

Может быть это на случай NaN в элементе массива?
Впрочем я в паскале тоже никогда с таким не сталкивался...