Question

Удалить заданное количество элементов после первого элемента. Pascal ABC

Answer 1

Легчайшая.

const N = 10;

var

a: array [1..N] of integer;

K: integer;

begin

for var i:=1 to N do

a[i] := Random(100);

writeln('Элементы массива a: ');

for var i:=1 to N do

write(a[i],' ');

writeln;

K := Random(1,N);

for var i:=K to N-1 do

a[i] := a[i+1];

writeln('После удаления элемента с индексом ',K,':');

for var i:=1 to N-1 do

write(a[i],' ');

writeln;

end.

Answer 2

Для удаления заданного количества элементов после первого элемента в массиве в Pascal ABC, вы можете использовать следующий код:

pascalCopy code
program RemoveElementsAfterFirst;

const
  MAX_SIZE = 100;

type
  IntArray = array [1..MAX_SIZE] of Integer;

var
  arr: IntArray;
  n, numElementsToDelete, i: Integer;

procedure DeleteElementsAfterFirst(var arr: IntArray; n, numToDelete, index: Integer);
var
  i: Integer;
begin
  for i := index + 1 to index + numToDelete do
  begin
    if i <= n then
      arr[i] := 0; // You can set it to any other value or handle it differently if needed
  end;
end;

begin
  Write('Enter the number of elements in the array (up to ', MAX_SIZE, '): ');
  Readln(n);

  Write('Enter the array elements: ');
  for i := 1 to n do
    Read(arr[i]);

  Write('Enter the number of elements to delete after the first element: ');
  Readln(numElementsToDelete);

  if numElementsToDelete > 0 then
    DeleteElementsAfterFirst(arr, n, numElementsToDelete, 1);

  Writeln('Array after deletion: ');
  for i := 1 to n do
    Write(arr[i], ' ');

  Readln;
end.

В этом коде мы сначала вводим размер массива (n) и его элементы. Затем мы запрашиваем количество элементов, которые необходимо удалить после первого элемента (numElementsToDelete). Если задано положительное значение numElementsToDelete, мы вызываем процедуру DeleteElementsAfterFirst, которая заменяет соответствующие элементы в массиве на ноль. Затем выводим измененный массив на экран.

Обратите внимание, что этот код предполагает, что элементы массива вводятся вручную пользователем. Вы можете изменить этот код, чтобы элементы заполнялись автоматически или вводились иным образом, в зависимости от вашего приложения.