Question

2. Составить программу: pascalABC Массив из 10 элементов заполнить случайными числами в интервале от -10 до 35. Необходимо удалить третий элемент

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(10, -10, 35);

 a.Println;

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

 a.Print

end.

Answer 2

Для того чтобы выполнить данную задачу на языке PascalABC.NET, следуйте приведенному ниже коду:

pascalCopy code
program DeleteThirdElement;

uses
  SysUtils;

const
  N = 10;
  MinValue = -10;
  MaxValue = 35;

var
  arr: array[1..N] of Integer;
  i, j: Integer;

begin
  Randomize;

  // Заполняем массив случайными числами в интервале от MinValue до MaxValue
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;

  // Выводим исходный массив
  WriteLn('Исходный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  WriteLn;

  // Удаляем третий элемент массива
  for i := 3 to N - 1 do
    arr[i] := arr[i + 1];
  arr[N] := 0; // Обнуляем последний элемент

  // Выводим измененный массив
  WriteLn('Массив после удаления третьего элемента:');
  for i := 1 to N - 1 do
    Write(arr[i], ' ');
end.

Этот код создает массив из 10 элементов, заполняет его случайными числами в заданном интервале, а затем удаляет третий элемент массива. Обратите внимание, что в Pascal индексы массивов начинаются с 1, поэтому мы используем индексы от 1 до N.