Привет, надо я не очень понимаю информатику...

чтобы массив заполнялся от -15 до 20:

program vst; var c: array [0..100] of integer; j,n,k,i: integer; min: integer; beginrandomize; writeln('n='); read(n); for i: =1 to n do c[i]: =random(36)-15; writeln; for i: =1 to n do write (c[i],' '); min: =c[1]; for i: =2 to n doif min> c[i] then min: =c[i]; writeln ('min=',min); writeln('k='); read(k); for i: =n+1 downto k do c[i]: =c[i-1]; c[k]: =min; writeln; for i: =1 to n+1 do write (c[i],' '); end.

чтобы был ручной ввод:

program vst; var c: array [0..100] of integer; j,n,k,i: integer; min: integer; beginwriteln('n='); read(n); for i: =1 to n doreadln(c[i]); writeln; for i: =1 to n do write (c[i],' '); min: =c[1]; for i: =2 to n doif min> c[i] then min: =c[i]; writeln ('min=',min); writeln('k='); read(k); for i: =n+1 downto k do c[i]: =c[i-1]; c[k]: =min; writeln; for i: =1 to n+1 do write (c[i],' '); end.