Ьудкщалеьң
Екілік кодтау не үшін қолданылады

Объяснение:

В общем сделал так чтобы проверялись вообще все возможные перестановки чисел, а не одинарные

#include <iostream>

using namespace std;

bool is_permutation(int* A, int* B, int size);

int main()

{

int *A, *B, N;

bool result;

cin >> N;

A = new int[N];

B = new int[N];

for (int i = 0; i < N; i++) cin >> A[i];

for (int i = 0; i < N; i++) cin >> B[i];

result = is_permutation(A, B, N);

if (result) cout << "YES";

else cout << "NO";

return 0;

}

bool is_permutation(int* A, int* B, int size)

{

int CountInA, CountInB;

for (int i = 0; i < size; i++) { // Перебираем по одному все элементы массива B

 CountInA = 0;

 CountInB = 0;

 for (int j = 0; j < size; j++)

 {

  if (B[i] == A[j]) CountInA++; // Считаем сколько раз этот элемент встретился в массиве А

  if (B[i] == B[j]) CountInB++; // Считаем сколько раз этот элемент встретился в массиве B

 }

 if (CountInA != CountInB) return false;// Если счётчики не совпали, то сразу выходим из цикла

}

return true;// Если счётчики всегда совпадали, то мы попадём сюда и массивы состоят из одинакового количества одинаковых элементов

}

Program znanija_com;
const
  n = 5;
  m = 5;
  rnd = 9;
type
  tArray = array[1..n, 1..m] of integer;
var
  arr : tArray;
  i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
  randomize;
  writeln ('Исходная матрица:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      arr[i,j] := random(rnd);
      if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
        else sum_nch := sum_nch + 1;
      write(arr[i, j], ' ');
    end;
    writeln();
  end;
  for i:=1 to n do
    sum_diag := sum_diag + arr[i,i];
  max_num := arr[1,1];
  max_index_1 := 1;
  max_index_2 := 1;
  for i:=1 to n do begin
    for j:=1 to m do begin
      if arr[i, j] > max_num then begin
        max_num := arr[i, j];
        max_index_1 := i;
        max_index_2 := j;
      end;
    end;
  end;
  writeln('Колечество четных элементов равно ', sum_ch);
  writeln('Колечество нечетных элементов равно ', sum_nch);
  writeln('Сумма главной диаганили равна ', sum_diag);
  writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
  readln();
end.