Question

Pascal ABCNET Пусть даны целые числа a1,a2,...,an.Получите новую последовательность,выбросив из исходной максимальный и минимальный члены.

Answer 1

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

begin

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

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var (min, max) := (a.Min, a.Max);

 a := a.Where(p -> (p <> min) and (p <> max)).ToArray;

 a.Println

end.

Answer 2

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

pascalCopy code
program RemoveMinMax;
var
  n, i, minValue, maxValue, minIndex, maxIndex: integer;
  sequence: array of integer;
begin
  // Ввод количества чисел
  write('Введите количество чисел: ');
  readln(n);

  // Инициализация массива
  SetLength(sequence, n);

  // Ввод чисел
  writeln('Введите числа:');
  for i := 0 to n - 1 do
  begin
    write('Число ', i + 1, ': ');
    readln(sequence[i]);
  end;

  // Поиск минимального и максимального чисел
  minValue := sequence[0];
  maxValue := sequence[0];
  minIndex := 0;
  maxIndex := 0;

  for i := 1 to n - 1 do
  begin
    if sequence[i] < minValue then
    begin
      minValue := sequence[i];
      minIndex := i;
    end;

    if sequence[i] > maxValue then
    begin
      maxValue := sequence[i];
      maxIndex := i;
    end;
  end;

  // Удаление минимального и максимального чисел
  if minIndex < maxIndex then
  begin
    sequence[maxIndex] := sequence[n - 1];
    SetLength(sequence, n - 1);
    sequence[minIndex] := sequence[n - 2];
    SetLength(sequence, n - 2);
  end
  else
  begin
    sequence[minIndex] := sequence[n - 1];
    SetLength(sequence, n - 1);
    sequence[maxIndex] := sequence[n - 2];
    SetLength(sequence, n - 2);
  end;

  // Вывод результирующей последовательности
  writeln('Результирующая последовательность:');
  for i := 0 to Length(sequence) - 1 do
  begin
    writeln(sequence[i]);
  end;
end.

Вы можете скопировать этот код в среду программирования Pascal ABCNET и выполнить его. Программа запросит ввод количества чисел и сами числа, а затем выведет результирующую последовательность после удаления минимального и максимального элементов.