Question

Дан массив целых чисел​. Найти в этом массиве минимальный элемент m и максимальный элемент М. Получить в порядке возрастания все целые числа из интервала (m; М), которые не входят в данный массив. В паскаль

Answer 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var A:array[1..100] of integer;
i,j,n,m1,m2:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;

Answer 2

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

pascalCopy code
program FindMinMaxAndMissingNumbers;

const
  N = 10; // Размер массива
  m = -100; // Минимальное значение интервала
  M = 100; // Максимальное значение интервала

var
  arr: array[1..N] of integer;
  i, minElement, maxElement: integer;

begin
  // Заполнение массива произвольными значениями
  for i := 1 to N do
    arr[i] := Random(200) - 100; // Генерируем случайные числа от -100 до 99

  // Находим минимальный и максимальный элемент в массиве
  minElement := arr[1];
  maxElement := arr[1];
  for i := 2 to N do
  begin
    if arr[i] < minElement then
      minElement := arr[i];
    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Выводим найденные минимальный и максимальный элементы
  writeln('Минимальный элемент: ', minElement);
  writeln('Максимальный элемент: ', maxElement);

  // Выводим целые числа в порядке возрастания из интервала (m, M),
  // которые не входят в массив
  writeln('Целые числа в интервале (' + IntToStr(m) + ', ' + IntToStr(M) + '), не входящие в массив:');
  for i := m + 1 to M - 1 do
  begin
    if not (i in arr) then
      write(i, ' ');
  end;

  readln;
end.

Этот код создает массив из 10 случайных целых чисел в диапазоне от -100 до 99, находит минимальный и максимальный элементы в этом массиве, а затем выводит все целые числа из интервала (m, M), которые не входят в массив.