Вставка элемента в одномерный массив — Pascal(Паскаль)

var
  a: array [1 .. 100] of integer;
  i, x, n, nom: integer;

begin
  write('Введите количество элементов=');
  readln(n);
  for i := 1 to n do
    read(a[i]); { считываем элементы }
  write('Введите число, которое нужно вставить=');
  readln(x);
  write('Введите номер ячейки, в которую его надо поместить=');
  readln(nom);
  writeln('Массив');
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
  writeln('После вставки');
  for i := n + 1 downto nom + 1 do
    a[i] := a[i - 1]; { сдвигаем все элементы вправо }
  a[nom] := x; { вставляем число }
  for i := 1 to n + 1 do
    write(a[i], ' ');
  readln

end.

Leave a Comment

56 − = 48