Question

Дана последовательность целых чисел a1, a2, ..., an (n <= 40). Получить новую последовательность, выбросив из исходной элементы со значением max(a1, a2, ..., an) Надо написать в паскале очень надоо

Answer 1

##

var n := ReadInteger;

var a := ReadArrInteger(n);

var m := a.Max;

var b := a.Where(t -> t <> m).ToArray;

b.Print

Answer 2

Вот пример программы на Pascal, которая выполняет задачу удаления элементов с максимальным значением из последовательности целых чисел:

pascalCopy code
program RemoveMaxElements;
const
  MaxN = 40;
var
  a: array[1..MaxN] of integer;
  n, i, maxVal, maxCount: integer;
begin
  write('Введите размер последовательности (n <= 40): ');
  readln(n);

  // Ввод последовательности
  writeln('Введите элементы последовательности:');
  for i := 1 to n do
    read(a[i]);

  // Находим максимальное значение в последовательности
  maxVal := a[1];
  for i := 2 to n do
    if a[i] > maxVal then
      maxVal := a[i];

  // Удаляем элементы с максимальным значением
  maxCount := 0;
  for i := 1 to n do
  begin
    if a[i] = maxVal then
      maxCount := maxCount + 1
    else
      a[i - maxCount] := a[i];
  end;

  // Обновляем размер последовательности
  n := n - maxCount;

  // Выводим новую последовательность
  writeln('Новая последовательность:');
  for i := 1 to n do
    write(a[i], ' ');

  readln;
end.

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