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

Ответы 6

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

      mekhihr38
    • 5 лет назад
    • 0
  • Из-за кривизны гyглообьразного браузера.
  • ага
    • Автор:

      wagner43
    • 5 лет назад
    • 0
  • Но если Вы ответ не отформатируете, его удалят.
  • И еще: я, конечно, не знаю, что имел в виду автор вопроса, но набор чисел обычно списком не называют. Список - это информационная структура. Которая совсем не массив.
  • №1var 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.№2var 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.
    • Автор:

      buckeye
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years