|
Если я не ошибаюсь, то в последнем шаге находишь элемент по модулю больше единицы, после него все элементы двигаешь на позицию вперед и последнему элементу присваиваешь ноль.
if abs(z[i])<=1 then
begin
for j:=i to n-1 do
z[j]:=z[j+1];
z[n] := 0;
end;
Вроде так, соответственно это внутри ещё одного цикла. А с типами что?
ЗЫ. У авторы выше получче код)
|