program vst; var c: array [0..100] of integer; j,n,k,i: integer; min: integer; begin randomize; write('введите n = '); readln(n); for i: =1 to n do c[i]: =random(36)-15; writeln; for i: =1 to n do write (c[i],' '); writeln; min: =c[1]; for i: =2 to n do if min> c[i] then min: =c[i]; writeln ('min = ',min); write('введите место для вставки минимального элемента к = '); readln(k); writeln ('вывод массива: '); write('было: '); for i: =1 to n do write (c[i]: 3,' '); for i: =n+1 downto k do c[i]: =c[i-1]; c[k]: =min; writeln; write('стало: '); for i: =1 to n+1 do write (c[i]: 3,' '); end.
Поделитесь своими знаниями, ответьте на вопрос: