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

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

Задать свой вопрос
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.
Илюша Лисиченков
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.
Джанполадова Эльвира
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.
Дарина Радзивон
Не знаю почему веб-сайт в ответе все слепил в одну кучку)
Астрахань Алексей
ага
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт