даны два массива из n целых чисел.Отыскать меньший посреди тех чисел

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

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

Тестовое решение:
n= 20
1-ый массив:
18,1,4,1,22,14,34,18,50,9,27,41,26,11,8,34,7,35,34,33
2-ой массив:
7,19,3,8,26,30,50,46,33,20,1,3,9,4,34,42,1,7,46,34
Малое значение, отсутствующее во втором массиве: [11]
Валентина Кокорхина
прекрасное решение
Лидия Подьягель
Исключение первого огромного количества из второго с следующей сортировкой...
Витька Иванус
А что же, за 5 баллов тужиться программой на целый лист? ))
Eva Raube
для чего, если можно сделать коротко благовидно и понятно
Danil Asenov
Сейчас вот подумал: а зачем сортировать массивы на входе каждый, если можно отсортировать на выходе? a.Except(b).OrderBy(x->x).Take(1)) - и запись короче.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт