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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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