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

Var a: array[0 ... 100] of Integer;

n, i, s, otr, pol, nol: Integer;

begin

otr:=0;

pol:=0;

nol:=0;

writeln ('Введите кол-во чисел, не привышающие число 100') ;

readln (n) ;

Dec (n) ;

for i:=0 to n do

begin

writeln ('Введите ', i+1,' число') ;

readln (s) ;

a[i]:=s;

end;

for i:=0 to n do

begin

if a[i]>0 then Inc (pol) ;

if a[i]<0 then Inc (otr) ;

if a[i]=0 then Inc (nol) ;

end;

writeln ('Положительных чисел: ', pol) ;

writeln ('Отрицательных чисел: ', otr) ;

writeln ('Нулей: ', nol) ;

end.