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

const N = 10; var mas: array [1..N] of integer; i,x,y,z:integer; begin for i:=1 to 10 do read(mas[i]); x:=0; y:=0; z:=0; for i:=1 to 10 do begin if mas[i]>0 then x:=x+1 else if mas[i]<0 then y:=y+1 else z:=z+1 end; writeln('Положительных элементов: ',x); writeln('Отрицательных элементов: ',y); writeln('Нулевых элементов: ',z); end.