begin
var a:=ReadArrInteger('A(15 чисел)->',15);
var b:=ReadArrInteger('A(10 чисел)->',10);
b.Except(a).Println
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// PascalABC.NET 3.4.2, сборка 1803 от 27.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('A(15 чисел)->',15);
var b:=ReadArrInteger('A(10 чисел)->',10);
b.Except(a).Println
end.