Дан одномерный массив из н элементов.

[Tory1106]

ага.спасибо.

[Roof]

Мой вариант:

const n = 6;

var
    arr: array[1..n] of integer;
    i, t, pos: integer;

procedure Vstavka(num, id: integer; var m: array of integer);
var
    j: integer;
begin
    for j := n - 1  downto id - 1  do
       m[j + 1] := m[j];

   m[id - 1] := num;
end;

begin
    writeln('Zapolnite massiv: ');
    for i := 1 to n - 1 do
        readln(arr[i]);

    write('Ves massiv: ');
    for i := 1 to n - 1 do
        write(arr[i]:5);

    writeln;

    write('Ukajite eje odin element: ');
    readln(t);
    write('Ukajite poziciyu v massive ot 1 do ', n, ': ');
    readln(pos);

    Vstavka(t, pos, arr);

    write(' Ves massiv: ');
    for i := 1 to n do
        write(arr[i]:5);
    writeln;


readln

end.

[Serge_Bliznykov]

я позволил себе чуток подкорректировать вариант от Roof

{
Дан одномерный массив из н элементов.на заданное место К вставить новый
элемент,предварительно сдвинуть элементы вправо. 

правый элемент просто "вылетает и теряется" 
}
const n = 6;

type
  MArr = array[1..n] of integer;
var
    arr: MArr;
    i, t, K: integer;

procedure Vstavka(NumValue, PosK: integer; var m: MArr);
var
    j: integer;
begin
    for j := n downto PosK+1   do
       m[j] := m[j-1];

   m[PosK] := NumValue;
end;

begin
    writeln('Zapolnite massiv: ');
    for i := 1 to n do
        readln(arr[i]);

    write('Ves massiv: ');
    for i := 1 to n do
        write(arr[i]:5);

    writeln;

    write('Ukajite eje odin element: ');
    readln(t);
    repeat
      write('Ukajite poziciyu v massive ot 1 do ', n, ': ');
      readln(K);
    until (K >=1) and (K<=N);

    Vstavka(t, K, arr);

    write(' Ves massiv: ');
    for i := 1 to n do
        write(arr[i]:5);
    writeln;


readln

end.

[Roof]

Нну да. Я невнимательно прочел тему. У меня элемент не вылетает из массива.

[Tory1106]

Огромное вам Спасибо!