Вводится число Н. А за ним Н целых чисел-элементов массива. Обнулите все…

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.