Question

40 баллов Массив из 10 элементов заполнить случайными числами в интервале от -10 до 35. Необходимо удалить третий элемент. pascal abc 10 класс

Answer 1

Ответ:

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

Объяснение:

• var a := ReadArrInteger(10).ToList;

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

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

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

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

• a.RemoveAt(2);

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

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

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

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

Answer 2

Конечно, вот пример кода на языке Pascal ABC, который создает массив из 10 элементов со случайными числами в интервале от -10 до 35 и затем удаляет третий элемент:

pascalCopy code
program DeleteElement;
var
  arr: array[1..10] of Integer;
  i, removedIndex: Integer;
begin
  Randomize;

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

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

  // Удаляем третий элемент
  removedIndex := 3;
  for i := removedIndex to 9 do
    arr[i] := arr[i + 1];

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

Этот код сначала заполняет массив случайными числами в указанном диапазоне, затем удаляет третий элемент (с индексом 3) и выводит исходный и измененный массивы.