Удалить все элементы, кратные 3 или 5 Помогите найти, где я ошибся, ибо сам не смог этого...

Question

Удалить все элементы, кратные 3 или 5
Помогите найти, где я ошибся, ибо сам не смог этого сделать!
program udalenie;
const
n=20;
Type
Tarray=array[1..n] of integer;
var i,s,j:integer;
a:Tarray;
begin
randomize;
for i:=1 to n do begin
a [i]:=random(100);
write(a[i]:3, ' ' );
end;
s:=0;
for i:=1 to n do
begin
if (a[i] mod 3=0) or (a[i] mod 5=0) then
begin
s:=s+1;
for j:=i to n-s do
a[i]:=a[i+1];
a[n+1-s]:=0;
end
end;
write('dsd');
for i:=1 to n-s do
write(a[i]:3, ' ' );
end.

Comments

Какое было задание? Что нужно от программы?

---

вводишь случайных 20 чисел, считаешь сколько чисел делится на 3 или на 5. А дальше?

---

Создается массив из 20 рандомных чисел, нужно удалить из данного массива элементы кратные 3 и 5 то есть,вывести в конце этот массив такой же только, чтобы в нём не было чисел кратных 3 и5

Answer 1

1) опечатка в строчке a[i]:=a[i+1]; - вместо i должно быть j
2) косяк в алгоритме: после того, что нашелся нехороший элемент, все элементы правее этого сдвигаются на 1 влево. Но после этого тот элемент, который до сдвига был следующим - нигде не проверяется. Лечится это, например, добавлением дополнительного repeat ... until цикла, или заменой внешнего цикла for на какой-нибудь еще, позволяющий менять счетчик внутри цикла.

Comments

Можно чуть-чуть поподробнее..

---

по какому поводу*

---

По поводу обоих вариантов исправления, насчет repeat .until и что дас изменеие внешнего цикла?

---

if ... then begin ... end можно поменять на if ... then repeat ... until (a[i] mod 3 <> 0) and (a[i] mod 5 <> 0); но при этом заполнять пустые элементы не нулями, а, например -1.

Изменение внешнего цикла даст возможность в случае, когда нашёлся нехороший элемент, не увеличивать переменную-счетчик.

---

в первом способе еще надо следить за тем, чтобы не зациклиться на последнем элементе массива.