Паскаль

1-всавить число в список после каждого заданного числа.

2-удалить элемент из списка с номером N

№1

var o, c, k, n, i, j, a, s:longint; l:array[1 ... 1000]of longint; beginwriteln ('введите количство чисел в спискe'); readln (n); writeln ('введите числа из списка по одному'); for i:=1 to n doreadln (l[i]); writeln; writeln ('введите число которое нужно вставлять'); readln (o); writeln ('введите число после которого нужно вставить ', o,' в список'); readln (k); s:=n; for i:=n downto 1 do if l[i]=k then begins:=s+1; for j:=s downto i+1 dol[j]:=l[j-1]; l[i+1]:=o; end; for i:=1 to s do write (l[i],' ');

end.

№2

var c, k, n, i, j, a:longint; l:array[1 ... 1000]of longint; beginwriteln ('введите количство чисел в спискe'); readln (n); writeln ('введите числа из списка по одному'); for i:=1 to n doreadln (l[i]); writeln; writeln ('введите номер числа которое нужно удалить из списка'); readln (k); for i:=k to n do l[i]:=l[i+1]; n:=n-1; for i:=1 to n do write (l[i],' '); end.