Question

Написать программу в турбо паскале дано целое число N и набор из N целых чисел Найти количество элементов содеражащихся между первым и последним максимальным элементом Если в наборе имеется единственный максимальный элемент,то вывести на экран 0

Answer 1

Вводится в паскале  последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или   While.  Не является

Answer 2

Вот пример программы на Turbo Pascal, которая решает задачу, описанную в вашем вопросе:

program FindMaxElements;

const
  MAX_SIZE = 100;

var
  N, i, maxCount, maxIndex, firstMaxIndex, lastMaxIndex: integer;
  numbers: array[1..MAX_SIZE] of integer;

begin
  // Ввод количества элементов и набора чисел
  write('Введите количество элементов (N): ');
  readln(N);
  
  write('Введите набор из ', N, ' целых чисел: ');
  for i := 1 to N do
    read(numbers[i]);
  
  // Поиск индекса первого максимального элемента
  maxIndex := 1;
  for i := 2 to N do
  begin
    if numbers[i] > numbers[maxIndex] then
      maxIndex := i;
  end;
  
  // Поиск индекса последнего максимального элемента
  lastMaxIndex := maxIndex;
  for i := maxIndex + 1 to N do
  begin
    if numbers[i] = numbers[maxIndex] then
      lastMaxIndex := i;
  end;
  
  // Поиск индекса первого максимального элемента
  firstMaxIndex := maxIndex;
  for i := maxIndex - 1 downto 1 do
  begin
    if numbers[i] = numbers[maxIndex] then
      firstMaxIndex := i;
  end;
  
  // Подсчет количества элементов между первым и последним максимальным элементом
  maxCount := lastMaxIndex - firstMaxIndex - 1;
  
  // Вывод результата
  writeln('Количество элементов между первым и последним максимальным элементом: ', maxCount);
  
  // Проверка наличия единственного максимального элемента
  if firstMaxIndex = lastMaxIndex then
    writeln('0');
  
  readln;
end.

Программа запрашивает у пользователя количество элементов (N) и набор из N целых чисел. Затем она находит индексы первого и последнего максимального элемента в наборе и подсчитывает количество элементов между ними. Если в наборе есть только один максимальный элемент, программа выводит на экран 0.

Примечание: В данном примере используется ограничение на максимальное количество элементов (MAX_SIZE = 100). Вы можете изменить это значение в соответствии с вашими потребностями.