Паскаль, Что не так в этой процедуре? Нужно элемент подходящий по условию переставить в конец и при выводе не выводить. Так создаётся эффект удаления элемента.
procedure перестановка;
var
b: string;
begin
writeln('vvod b');
readln(b);
for i: byte := 1 to n-1 do
begin
for j: byte:= 1 to n do
begin
if a[i]=bthen
b:=k10a[j+1];
a[j+1]:=a[j+2];
a[j+2]:=a;
writeln(a[i]);
end;
end;
end;

Популярно: Информатика

• 

  Марриичка

  19.06.2020 04:51
  Укажите логический тип величины : 1)инверсия 2)1 3) нет 4)true 5)ложь...
• 

  sofianastusenko

  03.06.2023 19:37
  Вводятся два натуральных числа. если оба числа чётные, то вывести...
• 

  misi2

  21.05.2022 06:35
  По заданным координатам точек а и в вычислите длину отрезка ав пример...
• 

  Arkanius

  24.10.2021 11:24
  Найди соответствие * Графический редактор Текстовый редактор Редактирование...
• 

  mketol4663

  11.06.2023 14:30
  сегодня надо сделать ​...
• 

  Светасветасветасвета

  28.03.2020 06:03
  Может ли быть отрицательный герой, быть положительным...
• 

  margusqw

  03.11.2020 09:16
  Запишите числа а=160000 и в=0,0003 в стандартном виде и найдите их...
• 

  Аня8785

  26.05.2021 22:16
  Дано соотношение найти значение x: y. ​...
• 

  dasharau27

  22.08.2021 02:21
  1.Почему Мировой океан играет настолько важную роль?...
• 

  Hondok13

  28.05.2020 20:26
  Ата сөзін басқаша айтуға болады...