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

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.