Паскаль

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.