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.