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

Question

Паскаль
1-всавить число в список после каждого заданного числа.
2-удалить элемент из списка с номером N

Answer 1

№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.

Comments

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

end.

---

var c,k,n,i,j,a:longint;
l:array[1..1000]of longint;
begin
writeln('введите количство чисел в спискe');
readln(n);
writeln('введите числа из списка по одному');
for i:=1 to n do
readln(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.

---

Не знаю почему сайт в ответе все слепил в одну кучку)

---

ага