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

var a: array[1..10000] of integer;x,y,z,i,n:integer;beginWrite('Введите количество элементов массива: ');readln(n);Writeln('Введите элементы массива: ');x:=0; z:=0; y:=0;for i := 1 to n dobeginreadln(a[i]);if (a[i])>0 thenx:=x+1 elseif (a[i])=0 then z:=z+1 else y:=y+1;end;Writeln('Положительных элкментов масива: ', x);Writeln('Отрицательных элкментов масива: ', y);Writeln('Нулевых элкментов масива: ', z);end.