вводится число Н. а за ним Н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте количество остальных. через паскаль абс

program dds;

const n = 10;

var a:array[1 ... n]of integer;

i, o, z, x, h:integer;

begin z:=0;

for i:=1 to n do begin a[i]:=random (10) - 5;

write (a[i]:4) ; end; writeln;

write ('vvedite H') ;

readln (H) ;

for i:=h+1 to n do begin if a[i]<0

then a[i]:=0; if a[i]>0 then z:=z+1; end;

for i:=1 to n do write (a[i]:4) ; writeln;

write ('chishel=', z) ; readln;

end.