Question

Даны два массива из n целых чисел.Найти наименьший среди тех чисел первого массива,который не содержится во втором. напишите программу в Паскале

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  Writeln('Первый массив:');
  var a:=ArrRandom(n,1,50).Println(',');
  Writeln('Второй массив:');
  var b:=ArrRandom(n,1,50).Println(',');
  Writeln('Минимальное значение, отсутствующее во втором массиве: ',
       a.OrderBy(x->x).Except(b.OrderBy(x->x)).Take(1))
end.

Тестовое решение:
n= 20
Первый массив:
18,1,4,1,22,14,34,18,50,9,27,41,26,11,8,34,7,35,34,33
Второй массив:
7,19,3,8,26,30,50,46,33,20,1,3,9,4,34,42,1,7,46,34
Минимальное значение, отсутствующее во втором массиве: [11]

Answer 2

Задача: Найти наименьший элемент первого массива, который не содержится во втором массиве

Для решения данной задачи можно использовать следующий алгоритм:

1. Создать два массива `array1` и `array2` из `n` целых чисел. 2. Инициализировать переменную `minNumber` значением, превышающим максимальное значение в массиве. 3. Пройти по каждому элементу `number` в массиве `array1`. 4. Проверить, содержится ли `number` в массиве `array2`. Если не содержится и `number` меньше `minNumber`, обновить значение `minNumber` на `number`. 5. После завершения цикла, `minNumber` будет содержать наименьший элемент первого массива, который не содержится во втором массиве. 6. Вывести значение `minNumber`.

Пример программы на языке Паскаль:

program FindMinNumber;

const
  n = 10; // размер массивов

var
  array1, array2: array[1..n] of Integer;
  minNumber, number: Integer;
  i: Integer;

begin
  // Заполнение массивов array1 и array2 значениями
  // ...

// Инициализация minNumber значением, превышающим максимальное значение в массиве
  minNumber := MaxInt;

// Поиск наименьшего элемента первого массива, который не содержится во втором массиве
  for i := 1 to n do
  begin
    number := array1[i];
    if not (number in array2) and (number < minNumber) then
      minNumber := number;
  end;

// Вывод наименьшего элемента
  writeln('Наименьший элемент первого массива, который не содержится во втором: ', minNumber);
end.

Примечание: В приведенном примере программы необходимо добавить код для заполнения массивов `array1` и `array2` значениями. Также, убедитесь, что переменная `n` соответствует размеру массивов.