Удалить из массива все элементы, равные х.

[Biohazard251]

Удалить из массива все элементы, равные х.
помогите решить!

const
  n1 = 10;
var
  a: array[1..n1] of integer;
  x, n, i, j, k: integer;
begin
  write('x='); read(x);
  write('n='); read(n);
  if (n >= 1) and (n <= 10) then
  begin
    for i := 1 to n do
    begin
      write('a[', i, ']='); read(a[i]);
    end;
    for i := 1 downto n do
      if a[i] = x then
      begin
        k := i;
        for i := k to n - 1 do
          a[i] := a[i + 1];
        a[n] := 0;
        n := n - 1;
      end;
    for i := 1 to n do
      write('a[', i, ']', a[i]); read(a[i]);
  end
  else write('error');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Biohazard251]

спасибо я уже сам решил
const
n1=10;
var
a:array[1..n1]of integer;
x,n,i,j,k:integer;
begin
write('x='); read(x);
write('n='); read(n);
if (n>=1) and (n<=10) then
begin
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
for i:=n downto 1 do
if a[i]=x then
begin
k:=i;
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=0;
n:=n-1;
end;
for i:=1 to n do
writeln('a[',i,']',a[i]);
end
else write('error');
end.

[Sciv]

for i:=1 downto n do

Ошибка, цикл не пойдет, так как n>=1 изначально.

for i:=k to n-1 do

У Вас уже есть один цикл по i, вложенный цикл нужно делать с другим счетчиком
(убрать k:=i и переставить в цикле i и k местами, а так же внутри этого цикла поменять i на k).

n:=n-1;

А вот этого в цикле k:=i to n do делать не стоит, иначе N будет декрементироваться на каждой итерации. Вынесите за цикл, но в пределах условия if ... then

[Sciv]

спасибо я уже сам решил

Да пожалуйста, молодец! Но последний пункт про n:=n-1 советую все же сделать...

[Serge_Bliznykov]

так попробуйте:

    for i := n downto 1 do
      if a[i] = x then
      begin
        for k := i to n-1 do
          a[k] := a[k + 1];
        n := n - 1;
      end;
    for i := 1 to n do
      write('a[', i, ']=',a[i]:2,' '); 
    WriteLn