Question

Pascal Ввести одномерный массив, состоящий из n элементов. Удалите из массива третий элемент

Answer 1

==== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введи элементы массива:', n);

 a := a?[:2] + a?[3:];

 a.Print

end.

Answer 2

Чтобы удалить третий элемент из одномерного массива, нужно сдвинуть все элементы, начиная с четвёртого, на одну позицию влево. Вот пример кода на языке Pascal, который реализует эту операцию:

pascalCopy code
program RemoveThirdElement;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i: Integer;

procedure RemoveElement(var arrayToModify: array of Integer; indexToRemove, size: Integer);
var
  i: Integer;
begin
  for i := indexToRemove to size - 1 do
    arrayToModify[i] := arrayToModify[i + 1];
end;

begin
  WriteLn('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

  if (n <= 0) or (n > MAX_SIZE) then
  begin
    WriteLn('Некорректный размер массива.');
    Exit;
  end;

  WriteLn('Введите элементы массива:');
  for i := 1 to n do
    ReadLn(arr[i]);

  if n < 3 then
  begin
    WriteLn('Массив содержит меньше трёх элементов, третий элемент нельзя удалить.');
    Exit;
  end;

  RemoveElement(arr, 3, n);
  n := n - 1;

  WriteLn('Массив после удаления третьего элемента:');
  for i := 1 to n do
    WriteLn(arr[i]);
end.

Этот код позволит пользователю ввести размер массива и его элементы, а затем удалит третий элемент (если массив содержит хотя бы три элемента) и выведет результат.