с задачами с мод и див

===== PascalABC.NET =====

procedure MyCompare<T>(P, Q: HashSet<T>);

begin

 if P.SetEquals(Q) then

   Print('Множества эквивалентны')

 else if P.IsSubsetOf(Q) then

   Print('Первое множенство является подмножеством второго')

 else if P.IsSupersetOf(Q) then

   Print('Второе множенство является подмножеством первого')

 else

   Print('Проверка множеств завершена')

end;

begin

 var n := ReadInteger('Мощность первого множества:');

 var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 n := ReadInteger('Мощность второго множества:');

 var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 MyCompare(P, Q)

end.

#define N 10

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "Rus");

int mas[N];

cout << "Исходный массив: ";

for (int i = 0; i < N; i++) {

 cin >> mas[i];

}

for (int i = 0; i < N; i++) {

 for (int j = 0; j < N-1; j++) {

  if (mas[j] > mas[j + 1]){

   int d = mas[j];

   mas[j] = mas[j + 1];

   mas[j + 1] = d;

  }

 }

}

cout << "\nОтсортированный массив: ";

for (int i = 0; i < N; i++)

 cout << mas[i] << " ";

return 0;

}