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

Var a: array[1 ... 10000] of integer;

x, y, z, i, n:integer;

begin

Write ('Введите количество элементов массива: ') ;

readln (n) ;

Writeln ('Введите элементы массива: ') ;

x:=0; z:=0; y:=0;

for i : = 1 to n do

begin

readln (a[i]) ;

if (a[i]) >0 then

x:=x+1 else

if (a[i]) = 0 then

z:=z+1 else

y:=y+1;

end;

Writeln ('Положительных элкментов масива: ', x) ;

Writeln ('Отрицательных элкментов масива: ', y) ;

Writeln ('Нулевых элкментов масива: ', z) ;

end.