Question

Нужно написать программу на Паскале, которая удаляет n-ный элемент массива (не обнуляет его, а удаляет, чтобы длина массива изменилась), не через write, а через удаление или перепись массива без этого элемента в другой массив (напишите как переписать один массив в другой убрав элемент). Заранее спасибо.

Answer 1

Pascal 3.5.1:

Begin

 var v:=ReadInteger('Введите количество элементов в массиве:');

 var n:=ReadInteger('Введите какой элемент необходимо удалить:');

 var arr:=ArrRandomInteger(v,1,100);

 arr.Println;

 for var i:=n to arr.Length-1 do

   arr[i-1]:=arr[i];

 SetLength(arr,arr.Length-1);

 arr.Println;

end.