Паскаль, Что не так в этой процедуре? Нужно элемент подходящий по условию переставить в конец и при выводе не выводить. Так создаётся эффект удаления элемента.
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;

Nadezhda136    1   29.04.2020 22:51    0