Массивы замучили..

[NikiToZz_]

Привет, друзья. Написал программку к задаче: Удалить из массива, заполненного с клавиатуры, элементы, последняя цифра которых четная и само число делится на нее...

program massiv_55b;
uses crt;
Const N=10;
  var a,b:array[1..N] of integer;
                  l,a1,m,j,i,z:integer;
begin
  for i:=1 to N do begin
    write ('Введите элемент массива ');
    readln(z);
    a[i]:=z;
    clrscr;
  end;
  j:=1;
  for i:=1 to N do begin
    a1:=a[i] mod 10;
    if (a1 mod 2 = 0) and (a[i] mod a1 = 0) then     begin
       b[j]:=i;
 //      write (b[j],' ');
       j:=j+1;
       m:=j;
       end;
  end;
  L:=N;
  for j:=1 to m do begin
      for i:=b[j] to L-1 do
      a[i]:=a[i+1];
  L:=L-1;
  end;
  for i:=1 to L do
      write (a[i],' ');
  readln;
end.

ошибка вылетает в строчке (a[i]:=a[i+1], якобы вышел индекс за пределы массива, чего не может быть.. как действовать, господа?

[ViktorR]

Посмотри как меняется значение переменной m.
Можно ввести такой набор данных, что условный оператор, проверяющий четность последней цифры и т.д не будет выполняться.
В этом случае m = 0, и предположение

... якобы вышел индекс за пределы массива, чего не может быть..

станет не столь очевидным.

Как-то так, ...

[SecretSilent]

Сообщение от NikiToZz_

Привет, друзья. Написал программку к задаче: Удалить из массива, заполненного с клавиатуры, элементы, последняя цифра которых четная и само число делится на нее...

.......
  for i:=1 to N do begin
    a1:=a[i] mod 10;
........
j:=j+1;
m:=j;
......
for j:=1 to m do begin
......

ошибка вылетает в строчке (a[i]:=a[i+1], якобы вышел индекс за пределы массива, чего не может быть.. как действовать, господа?

Почему ж не может быть? По сути, j изменяется так же, как и i в цикле, т.е. m=N. Массив а от 1 до N, вот вам и ошибка - элемент a[i+1], т.е. a[N+1], выходит за допустимый диапазон значений.

[NikiToZz_]

По сути, j изменяется так же, как и i в цикле, т.е. m=N.

Это не так, потому что элементами массива b[j] являются лишь некоторые i, удовлетворяющие условию, а значит m<N.

[NikiToZz_]

Можно ввести такой набор данных, что условный оператор, проверяющий четность последней цифры и т.д не будет выполняться.

В моем случае все данные вводятся с клавиатуры, и я специально ввожу данные, удовлетворяющие условию.. Ошибка в другом

[Аватар]

       j:=j+1;
       m:=j;

поменяй местами

[NikiToZz_]

Аватар, спасибо, все работает!)
Правда, чуть-чуть неправильно, но это уже мои недоработки.

[Аватар]

Вот видишь, а говоришь не может быть. А как раз там при определенных условиях m становилось больше n

[NikiToZz_]

Аватар, да, я понял в чем там ошибка.. Но и в конце тоже была недоработка теперь же вот такая программа получилась к исходной задаче. Конечно, она полностью не оптимизирована, но она работает! =)

program massiv_55b;
uses crt;
Const N=10;
var a,b:array[1..N] of integer;
o,l,a1,m,j,i,z:integer;
begin
for i:=1 to N do begin
write ('Введите элемент массива ');
readln(z);
a[i]:=z;
clrscr;
end;
j:=1;
for i:=1 to N do begin
a1:=a[i] mod 10;
if (a1 mod 2 = 0) and (a[i] mod a1 = 0) then begin
b[j]:=i;

// write (b[j],' ');
m:=j;
j:=j+1;
end;
end;
{ for j:=1 to m do
writeln (b[j],' '); }
L:=N;
j:=1;
o:=0;
while j<=m do begin
for i:=b[j]-o to L-1 do
a[i]:=a[i+1];
L:=L-1; //Нужно номер i менять на 1 вниз.. УРА! сделал!
j:=j+1;
o:=o+1;
end;
for i:=1 to L do
write (a[i],' ');
readln;
end.