Программа

Program Problem6b;

const

n = 5; m = 6;

type

s = array[1..m+1] of integer;

t = array[1..n] of s;

f = array[1..n] of integer;

var

a : t;

c : f;

i, k : integer;

{----------------------------------------------------------------------------------------}

Procedure create_two(n, m : integer; var a : t);

var

i, j : integer;

begin

writeln('Заданный двумерный массив целых чисел');

randomize;

for i := 1 to n do

begin

for j := 1 to m do

begin

a[i, j] := random(201) - 100;

write(a[i, j]:6, ' ')

end;

writeln

end

end;

{----------------------------------------------------------------------------------------}

Procedure insert_column(n, m, k : integer; c : f; var a : t);

var

i, j : integer;

begin

{Перемещение столбцов в конец для освобождения места}

for i := 1 to n do

for j := m + 1 downto k + 1 do a[i, j] := a[i, j - 1];

{Вставка нового столбца}

writeln('Массив с новым ', k, '-м столбцом');

for i := 1 to n do a[i, k] := c[i];

for i := 1 to n do

begin

for j := 1 to m + 1 do write(a[i, j]:6, ' ');

writeln

end

end;

{----------------------------------------------------------------------------------------}

begin

create_two(n, m, a);

writeln('Вставляемый столбец ');

for i := 1 to n do

begin

c[i] := random(201) - 100;

writeln(c[i]:24)

end;

writeln;

write('Введите номер столбца, куда вставляется новый ');

readln(k);

insert_column(n, m, k, c, a)

end.