Question

50 баллов СРОЧНО pascal abc 10 класс подробное решение для 10 класса Массив из 10 элементов заполнить случайными числами в интервале от -10 до 35. Необходимо удалить третий элемент.

Answer 1

Ответ:

• begin
• var a := ArrRandom(10,-10,35).ToList;
• Println('До   :', a);
• a.RemoveAt(2);
• Println('После:', a);
• end.

Объяснение:

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

Объявляем переменную a - одномерный массив из 10 элементов, заполненный случайными числами в интервале от  -10 до 35, переведённый в List (список).

Напомню: список List – это динамический массив с возможностью динамического изменения размеров по ходу работы программы.

• Println('До :', a);

Выводим надпись "До   :" и массив на экран.

• a.RemoveAt(2);

Удаляем элемент под индексом/номером "2" (отсчёт идёт от нуля).

• Println('После:', a);

Выводим надпись "После:" и массив на экран.

Пример работы:

Answer 2

Конечно, вот пример кода на PascalABC.NET, который создает массив из 10 элементов, заполняет его случайными числами в указанном интервале и затем удаляет третий элемент:

pascalCopy code
program RemoveThirdElement;

const
  N = 10;

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

begin
  Randomize; // Инициализация генератора случайных чисел

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

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

  // Удаляем третий элемент
  removedIndex := 3;
  for i := removedIndex to N - 1 do
    arr[i] := arr[i + 1];
  Dec(N); // Уменьшаем размер массива на 1

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

Обратите внимание, что индексы в массивах PascalABC начинаются с 1, а не с 0, как в некоторых других языках программирования.