Задан одномерный массив из N чисел. Сосчитать количество частей массива:а) положительных;

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программка не работает, обновите версию!

begin

  var N:=readinteger('N=');

  var mas:=ArrRandom(N,-20,20); mas.Println;

  writeln('Положительных элементов: ',mas.Count(t-gt;tgt;0));

writeln('Отрицательных частей: ',mas.Count(t-gt;tlt;0));

writeln('Нулевых частей: ',mas.Count(t-gt;t=0));

end.

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]gt;0 then
x:=x+1
else if mas[i]lt;0 then
y:=y+1
else
z:=z+1
end;
writeln('Положительных частей: ',x);
writeln('Отрицательных частей: ',y);
writeln('Нулевых элементов: ',z);
end.