1

Задача: написать функцию или процедуру, для того чтобы удалить элемент из массива, по индексу n при этом массив нужно изменить, чтобы он был без пустого элемента. Как вернуть новый массив?

`procedure DeleteIndexElm(var arr:arrInteger;DelIndex:integer);
var newArrInt:arrInteger;i,j:integer;
begin
    if length(arr) < 1  then
        exit;
    j:=1;
    SetLength(newArrInt,length(arr)-1);
    for i := 1 to length(arr) do
    begin
        if i <> DelIndex then
        begin
            newArrInt[j] := arr[i];
            j:=j+1;
        end;
    end;
    SetLength(arr,Length(newArrInt));
    arr:=newArrInt;
end;`
3
  • 1
    Если что, то такая функция уже есть, называется Delete().
    – Alekcvp
    8 июн 2021 в 13:14
  • Я знаю, но, пытался сам реализовать эту функцию)
    – Taurinz
    9 июн 2021 в 9:56
  • 1
    Не нужно так менять вопрос, задайте новый.
    – MBo
    9 июн 2021 в 13:24

1 ответ 1

1
type
  TArrayOfInteger: array of integer;

procedure DeleteArrayElement(var arr: TArrayOfInteger, index: integer);
begin
  ...
  SetLength(arr, Length(arr) - 1);
  ...
end;

процедура работает как-то некорректно.

Индексация динамических массивов начинается с нуля.

j := 0;
SetLength(newArrInt, Length(arr) - 1);
for i := 0 to Length(arr) - 1 do
begin
  ...
end;
//SetLength(arr,Length(newArrInt));
2
  • Добрый день, помогите пожалуйста, процедура работает как-то некорректно. Если элементов в массиве становится меньше половины, выбрасывает ошибку. Gdb фиксирует ошибку при присвоении нового массива к старому. Код процедуры сверху, спасибо!
    – Taurinz
    9 июн 2021 в 10:06
  • @Taurinz Пожалуйста. Успехов!
    – user176262
    9 июн 2021 в 15:20

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.